
\jv\ vr 

. NLI ST 


30 i( 

31 |( 

32 !£ 

33 ! € 

34 | ( 

35 it 

36 I ( 

37 it 

38 i t 
33 I ( 

40 it 

41 It 

42 it 

43 it 

44 | ( 

45 i t 

46 IC 

47 it 

48 !( 
43 | t 

50 i( 

51 |< 

52 It 

53 it 

54 !< 

56 if 

57 I ( 

58 it 
53 1t 

60 it 

61 it 

62 it 

63 it 

64 it 

65 it 

66 it 

67 it 

68 it 
63 it 

70 i f 

71 it 

72 it 

73 it 

74 it 

75 ! t 

76 it 

77 It 

78 it 

79 it 

80 it 

81 it 

82 it 

83 if 

84 i t 

85 ! t 

86 i t 

87 it 

88 if 
S3 it 
90 it 

31 i £ 

32 i t 

33 it 

34 it 
95 it 


CONSTANTS AND 10 PORT DEFINITIONS ) 

RAM ORIGIN AND SPECIAL VGS VERBS > 

VGS random/ rarujer ) 

VGS random/ RND/ RANGER/ RANGERND ) 

UPDATE COLOR MAP — QUICKLY ) 

VGS FLOOD > 

VGS FILL ) 

VGS write routines pattern representation ) 

VGS pattern board and magic equates 


RELABS 

VGS 

VGS 

VGS 

VGS 


) F = relabs SUBR ffrelabs <ASSEMBLE 
RELABS ) 
wr i te ) 

wr i te con't . ) 

write con't. ) 




VGS writep ) 

VGS WRITEP ) 

VGS WRITE > 

FRAME/ UNFRAME MACROS ) 

SPECIAL RELABS FOR BOX ) 

PATTERN BOARD BOX COMMAND ) 

X Y XS YS MODE BOX ) HEX 

BOX ) E A MOV, 4 CPI/ ..XSL4 JRC, t JUMP IF LESS THAN 4 ) 

BOX ) B DAD, L BX.X Y STX, H BX.X 1+ Y STX, £ UPDATE ) 

BOX ) LABEL ..PLOP PIXVAL LDA, M XRA, C ANA, t PLOP LOOP ) 

BOX ) 

16 BIT INTEGER DIVIDE ROUTINE: M N UN/ Q R 5 DECIMAL 
SNAP COMMAND ) 

8 X I© CHARACTER SET - ROTATED ) 

MORE CHARS ) C03F , E03F , 700C , 700C , E03F , C03F , t A ) 
CHARS > E01F , F03F , 3020 , 3028 , F01F , E02F , t Q ) 

NEW CHARACTER DRAW ROUTINE ) 

NORMAL BCD ADDITION ) 

VGS CPOST , SPOST ) 

DISPLAY 6 DIGIT BCD NUMBER — X Y OPT NUMADDR DISPBCD6 ) 

TWO DIGIT BCD DISPLAY ROUTINE AND BUMPER ) 

n—processor MUSPCU, this is starting load block ) HEX 

MUSIC EQUATES FOR VECTOR OFFSETS ) HEX 

MUSIC VARIABLES & IY EQUATES FOR OFFSETS ) HEX 

STEREO EFFECTS RAM AND VOLUME CRES.-DECRES. RAM > HEX 

MUSIC VARIABLES FOR COMPUTER MUSIC GENERATOR AND SYNCER ) HEX 

MUSIC PROCESSOR COMANDS ) HEX f data,PORT > 

MUSIC PROCESSOR COMANDS cont. ) HEX 

MUSIC PROCESSOR COMANDS cont., STEREO STUFF and ABCRND ) HEX 
NOTE CONSTANTS > HEX 

SIN STABLE FOR LEFT-RIGHT PAN VOLTAGES ) DECIMAL 
HELPING SUER's for MUSCPU *** NOTICE *** > HEX 


HELPING SUBR's cont. 1 HEX 
MUSIC PROCESSOR- emusic ) 

OPCODE SUBR's, 0-4 ) 

OPCODE SUBR's, 5-6, HL= MUSPC ) 

OPCODE SUER's, S-0B, 10H ) 

OPCODES 0C-0F ) 

OPCODES 11-iS I/O PORT OUTPUTS and PAN COUNTING, 1 AH ) HEX 
STEREO OPCODE 1 A, THUMPER IB, MUSIC GENERATOR 07H ) HEX 
OPCODE ADDRESS TABLE and FORWARDS ) HEX 

CQMPMUSIC's +-disp., S5M0D, NOTABLE and THUMFLOCATION ) HEX 
STEREO STUFF, LIMITCOUNTING ) 


Si* MUSCPU ** 
** MUSCPU ** 
MUSCPU 
MUSCPU cont. 
MUSCPU cont., 
MUSCPU 
MUSCPU 

MUSPCU cont.. 


**STERE0** ) HEX 
**5TERE0*X ) HEX 
NOTETIMER,MOSYNC ) 
MORAMBLE, LOWMOVER, HIGHMOVER ) 

MORAMBLE cont., STEPMOVER ) 
VOLUME MOVING ) 

STEPMOVER, COMPDURMOVER > 
TBMOVER, NOMOVER ) 






96i< ## MUSIC INTERRUPTER ** COMPUTER MUSIC 3 HEX 

97J ( MUSCPU eon-t., RANDOM NOTES ) 

981C MUSCPU coni . ; PROCESS -the score j ) 

99i(MUSIC PROCESSOR- MUSCPUS PUT TOGETHER 3 HEX 

100i< MUSIC PROCESSOR- ALL xmuslcs NEED AN IY LOAD 3 HEX 
101 1C MUSCPU SUBROUTINE CALLS 3 
1021C MUSIC PROCESSOR- EMUSIC, BMUSIC, ... 3 

103IC MUSIC PROCESSOR- E2MUSIC, B2MUSIC, ... 3 

1041C CLEAR ANY PRIORITY ON THE MUSIC PROCESSOR 3 
1051C JAYS VIDEO GAME GOODIES 3 
1061C QUEUE - VECTOR MANIPULATION ROUTINES 3 
1071C VECTOR FIELD EQUATES CONTINUED 3 
1081C STATUS BIT EQUATES 3 
1091C VGS VWRITE 3 

1101C VGS VERASE 3 

1111C GLOBAL GAME RAM AREA START 3 

1121C NEW, IMPROVED, HOTROD INTERRUPT SYSTEM 3 DECIMAL 
1131C STORAGE ALLOCATOR GOODIES 3 
1141C ADD NODE TO QUEUE ROUTINE ) 

1151C DELETE FROM QUEUE 3 

1161C ADVANCE TO NEXT NODE ON QUEUE 3 

1171C INCREMENT TIME BASES - C = TIME BASE, IY = Q HEAD ) 

1181C NEW, IMPROVED, HOTROD INTERRUPT SYSTEM 3 DECIMAL 
1191C RESUME BACKGROUND - END INTERRUPT 3 
1201C TRY TO RUN SOMETHING IN FOREGROUND 3 
121 1C BACKGROUND END INTERRUPT ) 

122,'C BACKGROUND END INTERRUPT 3 
1231C INTERRUPT START ROUTINE 3 HEX 

1241C ROUTINE TO DELETE VECTOR IF STATUS SO INDICATES 3 
1251C MACROS TO GENERATE ANIMATION OPCODES 3 DECIMAL 
1261C MORE ANIMATION MACRO STUFF 3 
1271C ANIMATION INTERPRETER ROUTINES ) 

1281C MORE ANIMATION INTERPRETER ROUTINES 3 
1291C YET MORE ANIMATION INTERPRETER ROUTINES 3 

1301C THE ABSOLUTELY LAST SCREEN OF ANIMATION INTERPRETER STUFF 3 
131 1C JUMP TABLE FOR INTERPRETER ROUTINES ) 

1321C ANIMATION UPDATOR ROUTINE 3 

1331C DECREMENT ANIMATION TIMERS, COMPUTE VECTORING TIME ) 

1341C TIME BASED VECTOR UPDATE - IX=VECTOR ADDR, IY=QUEUE ENTRY 3 
1351C INITIALIZE INTERRUPT VERBS ) 

1361C SUBROUTINE TO UPDATE PATTERN USING XOR 3 

137-1C SUBROUTINE TO VECTOR USING SECOND DERIVITIVE 3 

1381C SUBROUTINE TO UPDATE PATTERN USING XOR AND 2ND DERV VECTOR 3 

1331C UPDATE VECTOR FROM JOYSTICK 3 HEX 11 C= JOYSTICK 

1401C SUBROUTINE TO UPDATE PATTERN FROM JOYSTICK 3 

141 1C COMPUTE DELTA FOR 1 COORDINATE 3 

1421C CLEAR VECTOR ) F= INIZL 

1431C SUBROUTINE TO PUT VECTOR ON PROCESS Q > 

1441C XVMOVE COMMAND - MOVE AN EXISTING VECTOR 3 

1451C XSTART COMMAND - START AN EXISTING VECTOR 3 

1461C START A VECTOR WITH JUST INITIAL X AND Y 3 DECIMAL 

1471C CHECK FOR INTERCEPT WITH VECTOR 3 

1481C CHECK GROUP OF VECTORS FOR INTERCEPT 3 

1491C NUMBER PATTERNS ,5X7 ORDERED 0-9 3 

1501C ROUTINE TO DISPLAY A BCD NUMBER 3 DIGITS LONG FROM VECTOR 3 

151|C INTERRUPT WRI T E NUMBER ROUTINE 3 
1521C BASE STATION } 

153 1C SMALL BAST 3 DECIMAL DA “A SMALBASE B, U QUAD 
1541(:GORF 3 DECIMAL DATA GORF 6 3, 15 B, QUAD 

15S1C GORFB 3 DECIMAL DATA GORFB 6 B, 15 B, QUAD 
1561C GORF 2 AND GORF 3 3 
1571C GORF 1 AND GORF 4 3 
1581C GORF 53 

1531C FIRE BASE EXPLOSION PATTERN 3 

1601C ANOTHER FIREEASE EXPLOSION PATTERN 3 

161 1C CONTINUATION OF FBEXP2, PHASOR AND NULPAT 3 





1 £2! f 
I S3 ! C 
164 i ( 
165i( 
1 ££ i ( 

167 i( 

168 | ( 
169! ( 
1 70 i ( 
171 i < 
172 ! ( 
1 73 ! ( 
174|< 

175 I < 

176 |( 

177 K 

178 !< 
173 !( 

180 i ( 

181 1C 

182 ! C 
1 83 1 ( 
184 i ( 
1 85 | t 
186 ! ( 

187 IC 

188 i< 

183 ! C 
13© !( 

131 ! C 

132 ! ( 

133 I ( 

134 1C 

135 !C 

136 if 

137 ! ( 

138 1C 
133 SC 
2©0 i C 

201 ! C 

202 i( 

203 1C 

204 1C 

205 ! ( 

206 i C 

207 j C 

208 ! C 
203 i ( 
21© if 

211 ! t 

212 1C 

213 1C 

214 it 

215 !f 

216 j ( 
21 7 1C 
218 1 C 
213 f ( 
22© ! C 

221 ! C 

222 IC 

223 1C 
224!( 

225 !( 

226 ! C 

227 1C 


FBEXP3 ) 

CONTINUED FEEXP3 ) 

FBEXP4 > 

FBEXP4 CONTINUED ) 

FIREBASE EXPLOSION 5 ) 

FBEXP5 CONTINUED ) 

FIRE BASE EXPLOSION 6 ) 

FIRE BASE EXPLOSION 6 CONTINUED 
ALIEN EXPLOSION PATTERN I 
MORE ALIEN EXPLOSIONS ) 
EXPLOSION PATTERNS ) DECIMAL 


) 

1 

2 

3 

4 


KAMI2AKE PATTERN 
ROTATED KAMIKAZE 
ROTATED KAMIKAZE 
ROTATED KAMIKAZE 
ROTATED KAMIKAZE 
MISSIONS- 
MISSIONS- 
SPACE MISSIONS BMUSIC BLOCK 
MISSIONS- TAKE-OFF- TO ) HEX 
MISSIONS- DIVE SOUND ) HEX 
DRAW FIREEASES ON SCREEN ) 
GAME VARIABLES AND CONSTANTS 


) 

) 

) 

) 

PLAYER 1 S SHIP EXPLOSION, 1G, SHOOTING SOUND, ID 
ZPIP & PZIP SOUNDS- ZP,PZ ) HEX 

) 


) 


INITIALIZE GAME SCREEN > HEX 
RACK UPDATOR ) 

RADIAL LINE GENERATOR ) 

RADIAL EFFECT VARIABLES ) 

NEAT SUBROUTINES > 

SUBR TO WRITE NEXT PIXEL IN A LINE ) 

OTHER NEAT VERBS > 

GENERATE A LINE ) 

LINE GENERATOR - CLIP CHECK ) 

LINE GENERATOR - SET DELTAS > 

ADJUST DELTAS TO QUADRANT, AND BIAS TO EFFECT CENTER ) 

WRITE ONLY ENTRY AND SET CENTER OF LINE EFFECT ) 

SHIFT RIGHT ARITHMETIC BY N ROUTINE ) 

SPIRAL VECTOR ROUTINE ) 

INTERRUPT ROUTINE TO SPIRAL VECTOR ) 

SUBROUTINES TO CALCULATE DISPLACEMENTS FOR RACK MEMBER ) HEX 
WAIT AND ANIMATION TRACKING TABLE ROUTINES ) HEX 
RECOMPUTE LIMITS ) HEX 

SUBR TO STEP MASTER COORDS ONE TICK AND LIMIT CHECK ) HEX 
WE FOUND AN INVADER - WRITE HIM > 

REWRITE A RACK MEMBER USING NORMAL PATTERNS ) 

REENTER RACK ) HEX 

INTERRUPT ROUTINE TO REENTER A GALAXIAN ) DECIMAL 
CHECK FOR INTERCEPT WITH RACK MEMBER ) 

ANIMATION LIST AND ROUTINE TO EXPLODE THE FIREBASE ) 

SCORIN ) HEX TABLE ASTBL 60 , £0 , 80 , 100 , 300 , 20© , 
MORE SCORING GOODIES ) 

BACKGROUND PHASOR INTERCEPT PROCESSING ROUTINES ) 

ROUTINE TO CALL FROM SCAN LOOP ) 

ANIMATION SUBR TO INITIALIZE THE FIRE BASE > 

EXPLODE THE FINAL FIREBASE SOMEWHAT MORE SPECTACULAR ) 

CHECK FOR PLAYER HIT ) 

COMMON INITIALIZATION GOODIES ) 

SPECIAL ROUTINE TO MOVE PHASOR BLAST ) 

STAR T OR RE!3 i ART THEl RH!A30R IM0V 3 HCn .? 

CHECK FIRE SWITCH ) 

AWAIT THE ARRIVAL OF THE VERTICAL INTERVAL ) 

NEW COLOR ROUTINES ) 

FADE UP/DOWN ROUTINES > 

FORCE FIELD DRAWER ) DECIMAL 
MORE FORCE FIELD GOODIES ) 

CHECK FOR INTERCEPT WITH ANY OF THE ATTACKERS > 

POSITION OBJECT RELATIVE TO FORMATION LEADER ) 




228!< INTERRUPT ROUTINE TO WRITE RELATIVE FORMATION MEMBER > 

229 j < LEADER X Y ANIMATION TIME STATUS VEC.TOR FSTART > 

230 itEFFECT REENTRY INTO RACK OR FORMATION ) 

231!C INTERRUPT ROUTINE TO REENTER KAMIKAZE ) 

232 ST ROUTINE TO RETARGET AN ATTACKER ) 

233;t ROUTINE “0 FLIP OVER ATTACKER 3 
234 S C LEFT ROLL SEQUENCE ) 

235K RIGHT RO_L SEQUENCE 3 
236iC KAMIKAZE ATTACK ANIMATION > 

237 it ANIMATION TO ACTIVATE KAMIKAZES 


) 
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- ——Block 30- 

( CONSTANTS AND 10 PORT DEFINITIONS > 

{ : C= } CONSTANT { j } { ; V = > VARIABLE { ; } 

HEX 0 C= CC? ( 0 TO CROSS COMPILE, 1 FOR NORMAL > 

CC? IFTRUE 0F002 C= RAMBASE 0FFFF C= LASTRAMADDR 
OTHERWISE 0D000 C= RAMBASE 0DFFF C= LASTRAMADDR IFEND 


NC= } 1+ DUF C= { . 

T = > TABLE { j } 

BT = } BTABLE { ; > 

BV= > BVARI ABLE { . 


} { 


} 


C= COL0R 
C= COL0L 
0B C= COLBX 
10 C= TONMO 
14 C= VIBRA 
0D C= INFBK 
0C C= MAGIC 

-B1 odi 


SC= } DUP C= { 

{ : A= } ARRAY { ; } 

{ : EA= > BARRAY { ,- > 

} { : F= } FORWARD { ; > 

2 C= C0L2R 3 C= C0L3R 
6 C= C0L2L 7 C= C0L3L 
0A C= VERBL 7F C= STAR2 
12 C= TONEE 13 C= TONEC 


1 C= COL1R 
5 C= C0L1L 
3 C= HORCE 
11 C= TONEA 
16 C= VOLAE 
OE C= INMOD 
19 C= XPAND 

31- 

< RAM ORIGIN AND SPECIAL VGS VERBS ) 
RAMBASE VPTR ! < START RAM AT RAMBASE! 


15 C= VOLC 
0F C= INLIN 
8 C= INTST 


17 C= VOLN 18 
8 C= CONCM 0F 
0E C= VERAF —: 


CODE DI 
CODE El 


DI, NEXT ( disable interrupts ) 
El, NEXT < enable interrupts ) 
MOD OUT, NEXT 
LOOP ; 


DP ! : TIMOR DP @ 

OKS DP ® there @ DF 


5 ! 

CODE XDI DI, 

A XRA, 

6! 

: MS 0 DO 4 0 

DO LOO 

7 i 

CC? IFTRUE 


S! 

: ROM IT DP @ 

other 0 

9! 

: < ONSCR ASM 

DEFINIT 

10! 

: ONSCR> DP @ 

there 

11 ! 

ROM IT 


12! 

IFEND 


13! 

— > > 


14! 



15! 



+ 

-B1ock 

32 

0! 

< VGS 


1 ! 

2 A= RND# 

( 'iOU 

2! 

SUBR random ( 

32 bit 

3 ! 

< out— random i'-j se 

4 ! 

B PUSH, 0 RND# LBCD 

5 ! 

2776 H LX I, 

B DADC, 

G! 

B DAD, XTHL, 

D DADC 

7 i 

E D MOV, 3 E 

MOV, C 

8! 

XTHL, D DADC 

, 1 RND 

9 ! 

SUBR ranger C 

pasr P 

10! 

0 H LX I, H D 

gvjj iH V n ■ 

11 ! 

@ H LX I t 3 EG 

IN; E 3 

12 ! 

EXX, THEN, 3 

|A. U , 

13 j 

D RALR, EXX, 

j. ^ jA, 

1 Ar \ 

— > 


15 1 




othe 
! ; 


DP ! 


DP ! TERSE DEFINITIONS 


random, ranger ) 


random # generator 
acted # in DEHL ) 
1321 H LX I, E DAD, 
1 RND# LDED, D DAD, 
XTHL, B DAD, XTHL, 


B MOV, 

C* TJj < ^ 


MV I 


Jfv: 




EXX. 


) 


H PUSH, 

XTHL, 

D DADC, XTHL, 

0 RND# SH!_: 

• RET, 

) B PUSH, EXX 
E POP, XCH®, 

t ra r ^ .p v v n 

POP, PE'%" 


SNDEX 

HORAF 


r 


DADC, 

* E RALR, 
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+-Block 33- 

( VGS random* RND* RANGER* RANGERNB 

SUER rnd ( pass range in DE* returns # in HL ) 

D PUSH, random CALL* D FOF * ranger CALL, RET, 

CODE RANDOM ( out= * on stack ) random CALL, H PUSH* 
CODE RANGER C pass range* # on stack ) 

( result is * times range / FFFF, ie. 30H 8000H - 

D FOF, H FOF, ranger CALL, H PUSH, NEXT 
CODE RND ( pass range on stack ) 
random CALL, D POP* ranger CALL* H PUSH* NEXT 
— > 


-Block 34- 

C UFDATE COLOR MAP — QUICKLY ) 

CODE COLOR EXX* H POP* 800 B LXI* 

BEGIN* M A MOV, A OUTP, H INX, C INR, LOOF, 
EXX, NEXT 
— > 


/ 




t-Block 35- 

it VGS FLOOD ) 

I CODE FLOOD t set all color ports to the same value 
i £ in— bvte color value ) 

i ( out- screen color ports set to same value ) 
i EXX, H FOP, L A MOV, 800 B LXI, BEGIN, A OUTP, C INR 
i EXX, NEXT 
! — > 


a 

5 



) ' 

NEXT 

is 18H ) 


) 

LOOP, 











t/i w w ^ © us eo in or ^ cj w — © tn + uro-*®(fl»'iiinui^uw 


4---Block 36- 

01 ( VGS FILL 3 

1 j : FILL ( fill screen whith constairt data 3 

( in- cons+ant > starting address , # of bvtes to fill 3 
( out- does sequential fill whi-th constant specified 3 


ROT ROT 2DUP ! SWAP DROP DUP It ROT 1- BMOVE } 
DECIMAL —> 


I 


-I-Block 37- 

!( VGS write routines pattern representation 3 

! — > PATTERN REPRESENTATION 


Pattern header requirments are determined by the write 
routine used. The following diagram shows the hierarchy 
used : 

WRITER X size 

Y size 

WRITE pattern data - 

If a pattern is to be wriiten with a shift it must be self 
flushing. A pattern is self flushing if the right side 3 
bits are all zero. Pattern padding is required in some cases 


4-Block 38- 

! ( VGS pattern board and magic equates 3 

iHEX 


i < pattern board ports 3 

178 C= PEL INADRL 73 C= PEL INADRH 7A C= PBSTAT 7B C= PBAREADRL 
17B C= PBXMOD 7C C= PBAREADRH 7D C= PBXWIDE 7E C= PBY.HIGH 

1 f pattern board status port bits 3 
1© C= PBDIR 1 C= PEEX* 5 2 C= PBOONS 3 C= PBFLUSH 

14 C= PBFL IP 5 C= PBFLOP 
1 C magic r- o n i s t *«■ b its) 

|2 C= MRROT 3 C= MREXF 4 C= MROR 5 - C= MRXOR 
56 C= MRFLOP 7 C= MRFLIF 


9 

a 
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£ *64 ) 


DAD, £ X+M ) 


-Block 39- 

£ RELABS ) F— relabs SUBR ffrelabs <ASSEMBLE 
7 C BIT, 0< >, IF, 1 Y A LDX, H ADD, A DCR, A H MOV, 

THEN, 6 C BIT, 0<>, IF, 0 Y A LDX, D ADD, A DCR, 

A D MOV, THEN, £ FALL INTO ... ) 

LABEL relabs £ relative X Y -to magic address conversion 
£ in— EC=exp/mag DE=x HL=y ) 

C out- BC = exp/raag+shift HL=scradr ) 

H A MOV, 0 H MV I, A L MOV, 

H DAD, H DAD, H DAD, 

H DAD, D PUSH, L E MOV, H D MOV, H DAD, H DAD, 

D DAD, C *80 ) XCHG, H POP, £ x > 

L A MOV, C SAVE BIT CNT ) H L MOV, 0 H MVI, D 
RLC, RLC, HEX 3 AN I, 

MRFLOP C BIT, >, IF, NEG, 0=, IF, H DCX, THEN, THEN, 
3 ANI, A E MOV, C A MOV, FC ANI, E ORA, A C MOV, RET, 

!ASSEMBLE> —> 

+-Block 40- 

< VGS RELABS ) 

CODE RELABS £ relative -to absolute conversion ) 

£ in— exp/mag , X , Y ) 

£ out- exp/magtshift , scradr ) 

EXX, £ save BC ) 

H POP, £ Y > D FOP, £ X ) B POP, £ exp/mag > 
relabs CALL, B PUSH, £ exp/.nagtshf ) 

H PUSH, £ scradr ) EXX, NEXT 
— > 


-Block 41- 

£ VGS writre ) 

SUBR write £ write pattern on screen > 

£ in— BC=exp/magt-sh i -ft: DE='vi/x size HL=scradr IY=pa-tadr ) 

£ WRTSYS @< > for pattern board &— for software write 
£ out- C = mag+shif-t } pattern on screen ) 

— > 











+-Block 42-- 

( VGS write 

( pattern board write ) 

B A MOV, XFAND OUT, C A MOV, 


13 

14 

15 


con * t. 3 


MAGIC OUT, HEX 24 A MVI, 


MRFLIP C 
MRFLOP C 
MREXP C 


BIT, 0< >, 
BIT, @< > , 
BIT, 0< >, 


IF, PBFLIP A SET, 
IF, PBFLOP A RES, 
IF, PBEXP A SET, 


6 | 

A 

B MOV, 

PBSTAT 

OUT 

, C B 

=status C— 

mag i c 

7! 

H 

PUSH, 







Si 

Y 

PUSHX, 

H POP, 

L 

A 

MOV, 

PEL INADRL 

OUT, 

3 i 




H 

A 

MOV, 

PEL INADRH 

OUT, 

10 i 

H 

POP, 







1 1 ! 




L 

A 

MOV, 

PBAREADRL 

OUT, 

121 




H 

A 

MOV, 

PBAREADRH 

OUT, 


THEN, 
THEN, 
THEN, 
3 


— > 


-B1 ock 


43- 


0 ! ( 

VGS 

write con ’ t. 

3 





1 i 

E H MOV, 

C X siHe 3 







2! 

MREXP C 

BIT, 0< >, IF, H 

RLCR, < *2 

3 

THEN, 



3! 

H DCR, ( 

H=X size aero 

re I ative 3 






4 i 

MRFLIP C 

BIT, 0<>, IF, 







5 i 

MRFLOP 

C BIT, @< >, IF 

, DECIMAL - 

80 

A 

MVI , 

H 

ADD 

6 i 


ELSE 

, DECIMAL - 

80 

A 

MVI , 

H 

SUB 

7! 


ELSE, 







Si 

MRFLOP 

C BIT, @< >, IF 

, DECIMAL 

80 

A 

MVI , 

H 

ADD 

3 ! 


ELSE 

, DECIMAL 

80 

A 

MVI , 

H 

SUB 


10 
1 1 
12 
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1© 
1 1 
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THEN, 


THEN: 


HEX H A MOV, 
D A MOV, ( Y 
RET, 

- > 


THEN, ( 
PEXWIDE OUT, 
si es 3 A DCR, 


44 - 


Xmod ) PEXMOD OUT, 

( 0 re I ) PBYHIGH OUi 


H-B1 ock 

( VGS writep 3 

SUBR writep C does write with pattern size header on pair-tern 3 
( in- BC=exp/mag-r sh i f -t DE=\s/x size NL=scradr I Y=pa+adr ) 

C WRTSYS 0< > for pattern board @= -for software write 3 
( out:— C=mag+shift } pattern on screen 3 
0 Y E LDX , ( X size ) Y INXX, 

0 Y D LDX, C Y size 3 Y INXX, write JMP, 











©U)Co'j(ncn-fiQro 


+-----Block 45- 

j< VGS WRITEP ) 

'CODE WRITEP < write wi-th pattern size header on pattern ) 

' ( in- x , '•i , patadr , ex/mag ) 

i ( WRTSYS 0< > for pair-tern board 0= for software write ) 

! < out- pa-tirern on screen ) 

! Y PUSHX, W POP, EXX, B POP, Y POPX, N POP, D POP, 
i relabs CALL, 

i writep CALL, EXX, H PUSH, Y POPX, NEXT 

1C0DE FFWRITEP Y PUSHX, H POP, EXX, B POP, Y POPX, H POP, D POP, 
Iffrelabs CALL, writer CALL, EXX, H PUSH, Y POPX, NEXT 

j — > 


-i-Block 46- 

i< VGS WRITE ) 

I CODE WRITE ( write wi-th X Y sizes } pair-tern wiirh no header ) 
! C in- x , v , patadr , -y/x size ex/mag ) 

i C WRTSYS 0< > for pat-tern board 0= for software write ) 

i C out— pattern on screen ) 

! Y PUSHX, H POP, EXX, B POP, ( ex/mag ) H POP, ( sizes > 

! Y POPX, ( patadr ) D POP, ( Y ) XTHL, C H<-X S<-sizes 5 
! XCHG, < X< — >Y ) relabs CALL, D POP, (. sizes ) 

! write CALL, EXX, H PUSH, Y POPX, NEXT 
| — > 


-Block 47 - 

( FRAME, UNFRAME MACROS ) 

2 C= FR.P1 4 C= FR.F2 6 C= FR.P3 

{ : FRAME > { C } ASM { 1 } Y PUSHX, © Y LXIX, SP DADY, { 
{ : UNFRAME } { C } ASM { 1 } Y POPX, { ; } 


11 ' 
12 ! 
13 ! 
1 4 ' 
15 | 
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-I---Block 48-— 

( SPECIAL RELABS FOR BOX ) 

SUBR R2A « RELATIVE TO ABSOLUTE CONVERSION FOR BOX AND LINE 
E A MOV, 3 ANI, PSW PUSH, D PUSH, D SRLR, E A MOV, RAR, 

A ANA, RAR, C L MOV, @ H MV I, H DAD, H DAD, H DAD, 

H DAD, L E MOV, H D MOV, H DAD, H DAD, D DAD, 

A E MOV, 0 D MV I, D DAD, D POP, FSW POP, RET, 

— > 


H-Block 49- 

( PATTERN BOARD BOX COMMAND ) 

C X Y XS YS MODE BOX ) 

< PARAMETER ADDRESS EQUATES ) 

DECIMAL 

2 C= BX.M 4 C= BX.YS S C= EX.XS 8 C= EX.Y 10 

< SCRATCH AREA USED BY BOX COMMAND ) 

0 BVARI ABLE URMODE 0 BVARI ABLE PIXVAL 
C F=ARD REFERENCE DECLARATIONS ) 

F= ..SKIP F= ..MN2 F= ..XSL4 F= 

F= ..XST1 F = ..STRC F= ..XSTF F= 

F= ..PLOP F= OUTPB F= ..CPBB F= 

F= . .XSLA F = . .XORL F= ,.OUTM F = 

HEX DATA MSKTBL © B, 55 B, AA B, 

— > 


BX.X 


.SLOB F= PBBOX 
..XSBG F= ..BOXP 
.FFF F= ..DOSF 
NULRET 
FF B, 


-Block 5©- 

( X Y XS YS MODE BOX ) HEX 
CODE BOX <ASSEMBLE 

FRAME EXX, 

BX.M Y A LDX, 

A C MOV, 

4 CPI, ..SKIP 

8 CPI, ..SKIP 

4 ANI, HRMODE 
C A MOV, 3 AM! 

@ B MV I, X8K"I 


JZ, 

JNC, 

STA, 

, A C MOV, 
■L H LX! , 


IS MODE 
IF SO SKI 
SKIP IF 
ISOLATE 
( GET A B 


= 4 
P I 
> = 
AND 

TF 


) 

t y 

8 TOO 

TUP 


AL 


M 


LABEL 


B BAD 
BX.XS Y 
.BOXP E A 
th y x y is 


0 V 


: LDX 
MOV, 

« BX - 


BX , XS 
D ORA, 
3 AN I = 


STA, 
+ Y D 
.SKIP 


C AMD 

LDX, ( 


. . M N 2 J R N 2 
D A n 0 V , A 


J n £ j? 

C 0 w 
< MO 


OTA, 


.CPBB JRNI 


REMEMBEP 
DE=XS ) 
QUIT IF 

~Vtf 

JUMP 
IP >25G 


F MODE 

THE SA 

P P T 


E ) 


ME ) 
XVAL > 


xs=o ; 

UNDARY? 
50 USE PB ) 










cn-^tjro^stooo^itritnAQN 


( BOX 

) 

LABEL 

■ • 

LABEL 

■ ■ 

LABEL 

• • 

LABEL 

■ a i 

LABEL 


LABEL 

■ ■ 

LABEL 


LABEL 

m a 

— > 


( BOX 

) 

XCHG, 

A 

LABEL 

m a 

LABEL 

■ a ' 

LABEL 

■ ■ 

LABEL 

■ a 

LABEL 

■ * 

— > 



< BOX 


LABEL 


11 
12 

13 

14 

15 ! 


Block 51- 

E A MOV, 4 CPI, ■.X5L4 JRC, 

S CPI, ..SLOB JRC, 

CPBB PBBOX CALL, ..XST1 JMPR, 

SLOB FF C MVI, ..STRC CALL, 

4 C MV I, . .XSTF JMPR, 

MN2 3 AN I, A B MOV, C COMPUTE MIN(X,4-MODC XS-4 ) 

4 A MV I, B SUB, D 0 BIT, ..XSBG JNZ, C JMP IF XS>256 
E CMP, ..XSBG JC, E A MOV, ( OR > MOD > 

XSBG A C MOV, B PUSH, B C MOV, C MOD IS BIGGER ) 

A B MOV, A XRA, 

FFF RRC, RRC, C0 0R3, ..FFF DJNZ, C B MOV, £ MASK ) 
DOSF RRC, RRC, 3F AN!, ..DOSF DJNZ, £ SHIFT MOD TIMES 


JUMP IF LESS THAN 4 ) 
IF <8 DON'T USE PB ) 
CALL DRAW WITH PB ) 
PAINT A FULL STRIPE ) 


) 


A C MOV, ..STRC CALL, E POP, 
XSTF © B MV I, 


( 


XST1 BX.X Y L 
Block 52- 


DRAW PAF 

LDX, BX.X 1+ Y H LDX, C HL=X ) 


STRIPE 


B DAD, L BX.X Y STX, H BX.X 1+ Y STX, C UPDATE > 

XRA, B DSBC, XCHG, ..EOXP JMP, ( SUBTRACT SIZE ) 

XSL4 A B MOV, A XRA, C PAINT FINAL STRIPE ) 

XSLA RRC, RRC, C© ORi, ..XSLA DJNZ, ( FORM FINAL MSK ) 
A C MOV, ..STRC CALL, i AND DO FINAL STRIPE 

SKIP UNFRAME H POP, H POP, H POP, H POP, H FOP, 

EXX, NEXT < QUIT CIRCLE ROUTINE ) 

STRC D PUSH, C B MOV, BX.X Y E LDX, < STRIPE DRAWER ) 
BX.X 1+ Y D LDX, BX.Y Y C LDX, < GET COORDS ) 

R2A CALL, H 6 SET, B C MOV, ( R2A, UNMAGIC, RESET 

5© D LX 1, BX.YS Y B LDX, WRMODE LDA, A ANA, 

..PLOP JRZ, C JUMP IF PLOP, XOR ROUTINE FOLLOWS ) 

XORL PIXV AL LDA, C ANA, M XRA, A M MOV, £ UPDATE PI XL 

( UPDATE ADDR, LOOP BACK ) 

C XOR STRIPE DONE > 


D DAD, ..XORL DJNZ, 
D POP, RET, 


B1 ock 


53- 


) LABEL ..PLOP PIXVAL LDA, M XRA, C ANA, C PLOP LOOP > 

M XRA, A M MOV, D DAD, ..PLOP DJNZ, ( USE XOR TRICK ) 

D POP, RET, 

PBBOX 

D PUSH, D SRLR, E RAPP, D SRLR, E RARR, < BE=DE/4 > 

E E MOV, 

BX.Y Y C LDX, BX.X Y E LDX, BX.X 1+ Y D LDX, ( COORDS ) 
R2A CALL, VRHODE LDA, 4 AH I, C CONVERT, CHECK MR TYPE- > 


£ 


n v M 


LABEL 


MX IF PLO 
PIXVAL D 


5 A M V 

. .OUTM MAGIC OUT, 20 A MV I 

OUTPB CALL, F DCR # "© A XVI, 3 
PBXMO T *' OUT-. T A v ;f , v - PBXM T DF OU 
BX.Y3 Y A LDX, A DCF, PBYVISH C 
B po~ ( B L-MOV, © - MV l , L Iv~, 
K DAD, H DAD, L C MOV, H 8 MOV, 


? xo 

HP „ 


3~ > 

V n, n 


USED ) 


— > 











cn-^tjjw*-*6>c3co'g(ncn-^£Jh)- i © ui^cjro — ©(Dcoxjmtn^cjri) 


-B1 ock 


( BOX ) 

LABEL OUTPB C ROUTINE TO OUTPUT STUFF TO PAT BOARD ) 

PBSTAT OUT, E A MOV, PEL INADRL OUT, < STAT AND LINEAR 
D A MOV, PEL INADRH OUT, L A MOV, 

PBAREADRL OUT, H A MOV, PBAREADRH OUT, ( AREA ) 

LABEL NULRET RET, 

ASSEMBLE> 

DECIMAL 

2 +BLOCK CONTINUED 


H-Block 56- 

! ( 16 BIT INTEGER DIVIDE ROUTINE: M N UN/ Q R ) DECIMAL 

[FORWARD .ZERO FORWARD IDV50 FORWARD IDVG0 
!FORWARD IDV10 FORWARD IDV20 FORWARD IDV30 FORWARD IDV4© 
iSUER unsdiv <ASSEMBLE L C MOV, H E MOV, D A MOV, 0 H LX I, 
i E ORA, .ZERO URZ, E A MOV, IS B MVI, 
iLABEL IDVIO C RftLR, RAL, H DADC, D DSBC, 

!LABEL IDV20 CMC, IDV5© JRNC, 

!LABEL IDV30 IDVIO DJNZ, IDVSO JMPR, 
iLABEL IDV4© C RALR, RAL, H DADC, A ANA, D DADC, 

IIDV30 JRC, IDVSO JR2, 

jLABEL IDVSO IDV40 DJNZ, D DAD, A ANA, C MAKE IT POS ) 
iLABEL IDV60 C RALR, RAL, A D MOV, C E MOV, 
iLABEL .ZERO RET, ASSEMBLE> 

!SUBR UNSDIV H PUSH, D DSBC, CY, IF, 0 D LX I, H POP, ELSE, 
SH FOP, unsdiv CALL, THEN, RET, CODE UN/ EXX, D POP, H POP 


MAKE IT POS ) 


H POP, ELSE, 

D POP, H POP, 


iUNSDIV CALL, H PUSH, D PUSH, EXX, NEXT DECIMAL —> 

H---Block 57- 

\( SNAP COMMAND ) 

|HEX CODE snap EXX, 

125 A MVI, PBSTAT OUT, 

SH POP, 

ID POP, E A MOV, PBAREADRL OUT, D A MOV, 40 OR!, PBA 
ID POP, E POP, 

1E I NX, B I NX, B I NX, B SRLR, C RARR, B SRLR, C RARR 
1C A MOV, PBXWIBE OUT, A I NR, A M MOV, H 'INK, E M MO 


PBAREADRH OUT, 


5-5 Z N X 


! L A MOV, pblina: 
1 50 A MVI, C SUB 
IE A MOV, A BCR, 
l EXX, NEXT 
\ : SNAP 0 ROT PC 

s decimal —> 


IL CUT, H A MOV, PEL INADRH OUT, 
PTXMOD OUT, 

OUT, ( DO IT TO IT ) 


RELABS 


DROP SWAP snap 



n 

i 











+--B1 ock 


58- 


0 i ( 8 X 

1 ! HEX 

2 1 DATA 

10 CHARACTER 

CHRTBL 

SET - 

ROTATED 

) 






310000 

/ 

0000 

9 

0000 

* 

0000 

9 

0000 

JP 

0000 


t 

SPACE 

41E01F 

/ 

F03F 

9 

3030 

9 

3030 

9 

F03F 

9 

E01F 

f 

( 

0 

) 

51000© 

/ 

2030 

9 

D03F 

JP 

F03F 

9 

003© 

9 

0000 

9 

( 

1 

) 

61603E 

/ 

703F 

9 

3033 

9 

3033 

9 

F033 

9 

E031 

9 

( 

2 

) 

716018 

/ 

7038 

JP 

3033 

9 

3033 

9 

F03F 

9 

E01E 

9 

( 

3 

) 

81F003 

9 

F003 

r 

0003 

9 

0003 

9 

F03F 

9 

F03F 

9 

( 

4 

) 

9 1F01B 

9 

F03B 

/ 

3033 

9 

3033 

9 

303F 

9 

001E 

9 

( 

5 

) 

101E01F 

9 

F03F 

jp 

3033 

9 

3033 

9 

303F 

9 

©01E 

9 

( 

6 

) 

1113000 

/ 

3038 

j 

303E 

9 

B00F 

9 

F003 

9 

F©@@ 

9 

( 

7 

) 

121E01E 

t 

F03F 

f 

3033 

9 

3033 

JP 

F03F 

9 

E01E 

/„ 

( 

8 

) 

131E001 
14 1 — > 

9 

F@03 

jp 

3033 

9 

3033 

/ 

F03F 

9 

E01F 

9 

( 

9 

) 


15 


0 


-81 ock 


59- 


01( MORE 

CHARS 


) C03F 


E03F 


, 700C 


, 700C 


9 

E03F 

11F03F 

/ 

F©3F 

9 

3033 

9 

3033 

9 

F03F 

/ 

E01E 

JP 

( 

B 

) 

21E01F 

9 

F03F 

9 

3030 

9 

3030 

9 

7038 

9 

6018 

/ 

C 

C 

> 

31F03F 

9 

F03F 

9 

3030 

9 

3030 

9 

F03F 

9 

E01F 

/ 

C 

D 

) 

41F03F 

9 

F03F 

9 

3033 

9 

3033 

9 

3033 

9 

3030 

9 

< 

E 

) 

51F03F 

9 

F03F 

9 

3003 

9 

3003 

9 

30@3 

9 

3000 

9 

( 

F 

) 

6 1E01F 

9 

F03F 

9 

3030 

9 

3036 

9 

303E 

9 

201E 

9 

t 

. G 

) 

71F03F 

9 

F03F 

9 

0003 

9 

0003 

9 

F03F 

9 

F03F 

9 

c 

H 

) 

810000 

9 

303© 

9 

F 2 03F 

9 

F03F 

9 

3030 

9 

0000 

9 

c 

I 

> 

91001C 

9 

003C 

9 

©030 

9 

0030 

9 

F03F 

9 

F01F 

9 

< 

J 


101F@3F 

9 

F@3F 

9 

8003 

9 

C00F 

9 

F03C 

9 

7038 

9 

( 

K 

> 

11 iF 03F 

9 

F03F 

9 

0030 

9 

0030 

9 

0030 

9 

0030 

9 

< 

L 

) 

121F03F 

9 

6000 

9 

8001 

9 

8001 

9 

6000 

9 

F03F 

9 

( 

M 

) 

131F03F 

9 

F03F 

9 

C001 

9 

8003 

9 

F03F 

9 

F03F 

9 

c 

N 

) 

14 1E01F 

9 

F03F 

9 

3030 

9 

3030 

9 

F03F 

9 

E01F 

9 

c 

0 

) 

151F03F 

9 

F03F 

9 

3003 

9 

3003 

9 

F 003 

9 

E001 

9 

c 

P 

) 


( CHARS 


-B 1 ock 
) E01F 


SO- 

F03F , 


302© 


3028 


F01F 


E02F 


11F03F 

/ 

F03F 

/ 

3003 


3007 

9 

F03F 

JP 

E03D 

9 

C 

R 

> 

21E019 

9 

F03B 

/ 

3033 

jp 

3033 

9 

703F 

/ 

601 E 

JP 

( 

S 

) 

313000 

9 

3000 

/ 

F03F 

9 

F03F 

9 

3000 

9 

3000 

JP 

< 

I 

) 

4 1F01F 

9 

F03F 

9 

0030 

9 

©030 

9 

F03F 

9 

F01F 

9 

( 

u 

> 

51F003 

9 

F00F 

9 

003E 

9 

©03E 

9 

F00F 

9 

F0@3 

9 

( 

¥ 

} 

61F03F 

9 

000C 

9 

8007 

9 

8007 

9 

000C 

9 

F03F 

9 

( 

5< 

) 

717038 

9 

F03C 

JP 

C00F 

9 

C00F 

9 

F03C 

9 

p. t 

f 

c 

V 

) 

817000 

9 

F 0 0 ® 

n 

■ C03F 

9 

C03F 

9 


. 9 

7® 

9 


Y : 

% 

91303C 

9 

303E 

J? 

o “7 


~ £* p i p 

p 

~ f7i 3 ^ 

X 

r7i' 


c 

. y 



1 © ! 
11 ! 

12 i 

13 ! 

14 1 

15 ! 


C03F , ( A ) 


> 

, t G ) 
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--Block 61- 

< NEW CHARACTER DRAW ROUTINE ) 

( IN HL = Y DE=X BC=EXPAND/MAGIC i 
HEX 

SUBR drawchar B PUSH, H PUSH, D 


CHAR TO DISPLAY ) 


PUSH, 2© SUI , 0< >, IF, 


0F SUI, 0B CPI, CY~, IF, 7 SUI, THEN, THEN, ) 

A L MOV, 0 H MV I, H DAD, H DAD, L E MOV, H D MOV, 

H DAD, D DAD, CHRTBL D LX I, D DAD, H PUSH, Y POPX, 

D POP, H POP, H PUSH, D PUSH, relabs CALL, 

602 D LX I, write CALL, D POP, H POP, H A MOV, 7 ADI, 
A H MOV, E POP, RET, 


< TERSE INTERFACE 
CODE cpost EXX, B 
X PUSHX, Y PUSHX, 

D PUSH, H PUSH, B PUSH, EXX, NEXT 
DECIMAL —> 

-Block 62- 

( NORMAL BCD ADDITION ) 

CODE BCD+! EXX, H POP, D POP, 

M A"MOV, E ADD, DAA, A M MOV, 

MOV, D ADC, 


- X Y COLOR/MAGIC CHAR cpost — NEW X Y 
POP, C A MOV, E POP, H POP, D POP, 
drawchar CALL, Y POPX, X POPX, 


H I NX, M A 
H I NX, M A MOV, 0 AC I, 
EXX, NEXT 
DECIMAL —> 


DAA, A 
DAA, A 


M MOV, 
M MOV, 


-Block 63 - 

C VGS CPOST , SPOST ) 

: CPOST C post an ascii-character on the screen ? see options ) 
( in= x , m , opt+ex/mag , ascii-char ) 

C WRTSYS ©< > tor pattern board 0= For software write ) 

( out- character on screen ) 
cpost DROP DROP DROP } 

: SPOST C post an ascii-string on the screen } see options > 

< in= x , m , opt+ex/mag , addr , count ) 

< i .e. 0 0 28 A" STRING 11 COUNT SPOST ) 

' C WRTSYS @<> "dr pattern board For software write ) 

( cannot fee vsd i n 1 Rimed i.at mode ) 

( out— character on screen 5 

OVER + SWAP DO I pt epos- LOOP DROP DROP DROP } 
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-B1ock 64- 

C DISPLAY 6 DIGIT BCD NUMBER — X Y OPT NUMADDR DISPBCDG ) 

HEX SUBR digit 0F AN I * 0=, IF, D ORA, 0<>, IF, 0F0 A MV I, THEN, 
ELSE, 0 D MV I, THEN, 30 ADI, EXX, drawchar CALL, EXX, RET, 

HEX 

F= DGTL 

CODE DISPBCDG <ASSEMBLE H POP, M A MOV, H INX, M ORA, 

H INX, M ORA, A D MOV, 3 E MVI, 

EXX, B POP, H POP, D POP, X PUSHX, 

LABEL DGTL M A MOV, RRC, RRC, RRC, 

M A MOV, digit CALL, H DCX, E DCR, 

Y POPX, X POPX, NEXT ASSEMBLE) 

CC? IFTRUE TIMOR IFEND 
DECIMAL —> 


mtm mmm mv — J Lj M 

C TWO DIGIT BCD DISPLAY ROUTINE AND BUMPER ) 

CODE DISPBCD2 H POP, EXX, B POP, H POP, D POP, 

X PUSHX, Y PUSHX, EXX, 

1 D MVI, L A MOV, RRC, RRC, RRC, RRC, digit CALLj 
0 D MVI, L A MOV, digit CALL, 

Y POPX, X POPX, NEXT 


Y PUSHX, EXX, 
RRC, digit CALL, 
DGTL JRNZ, 


CODE BCDBUMP H POP, 
DECIMAL —> 


M A MOV, 1 ADI, DAA, A M MOV, NEXT 


-——B 1 ock 66- 

< n —processor MUSPCU, this is starting load block > HEX 

< old TERSE music still works and runs on this MUSCPU or ) 

( 2MUSCPU, multiple processors reload IY For music vector, ) 

( and the variable SOUNDBOX to the port 1 past the NOISE port, 
C ie. sounds are in 10—17, set SOUNDBOX to 1SH. 5 
0 BV= MUSICFLAG C turns off all processors For GAMEOVER ) 

0 BV= THUMPCOUNTEE i SPECIAL SPACE MISSIONS OPCODE ? 

CC? IFTRUE < ONSCR I FEND 

18 C= CHI PI 58 C= CXIF2 ( high port ov sourebs 

< EMUS IC uses CHIP'., E2MUSI 
6E C= PANPORT1 SC C= "ANPOR 
( TASK EQUATES FOR VECTOR OFFSETS ) HEX 
{ : { { } { i f i : I I } { | > C For relative RAI 
— > 


, g h port cv 

: usss CHIPS, 
"2 ( left- 1 ow 

■FSETS 


,p,nv chips ) 

7 r f «. 'j 

— p —, p j p ) 
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4-Block 67-■— 

< MUSIC EQUATES FOR VECTOR OFFSETS ) HEX 
{{ 0 SC= BEGMUSRAM C firs! b^te of 1 music-vector ) 

SC= MUSPC SC= MUSPCH NC= MUSPCL ( music program counter ) 

NC= STARTPC SC= STARTPCH NC= STARTPCL ( startover address > 
SOUNDBOX C highest port of I/O chips sound ports ) 
PANPORT# C bottom and leFt port of stereo output ) 
MOVALUE ( currant value ) 

VIBTRACKER ( vibrato convience tracker For games ) }} 

NC= MULTIPLE NC= PRIORITY }} ( For repeated and important 


NC= 

NC= 

NC= 

NC= 

{ { 

{{ NC= RAMPFLAG C /!/!/ vs. /\/\/ ) NC= RAMBLEFLAG 
NC= HIGHLIM NC= LQNLIM NC= STEP ( pertaining to MO 
RAMBLETIMER C master oscillator timer ) 
TIMEBASE £ reload rambletimer value ) >} 

LIMCOUNTER £ MO limit counter ) 


C on/oFF 
walk ) 


NC= 
NC= 
NC= 
— > 


-Block 6S- 

£ MUSIC VARIABLES & IY EQUATES FOR OFFSETS ) 
{{ NC= STOPTB £ stopvalue For timebase—mover 
NC= TBSTEP NC= TBTB NC= TBTIMER ( tbmover’s 


HEX 

) 

ss,tbitimer 


) > 1 


{{ NC= NOSTOP £ noisemover * s sv,ss,timer,tb,tracker 
NC= NOSTEP NC= NOTIMER NC= NOTIMEBASE NC= NOVALUE } 
{{ NC- STOPSTEPS £ MO's stepmover etc. ) 

NC= BIGOFASTEP NC= STEPTIMEBASE NC= STEPTIMER >> 






{{ NC= STQPLQWLIM C lowlim's mover 
NC= LOWSTEF £ ss or siepsize ) 

NC= LOW# ( # oF limits to hit beFore moving 

NC= LOWCOUNTER C counting low# down ) )> 

{{ NC= STOPHIGHLIM £ highmover's ram ) 

NC= HIGHSTEP NC= HIGH# NC= HIGHCOUNTER } > 

— > 


s ram, stopvalue ) 


-Block 69- 

STEREO EFFECTS RAM AND VOLUME CRES.-DECREE 
total pan volumes either channel, FFH, 64 

this is 1eFt 


( 

£ 

£ load lowest port in PANPORT#, 

C watch step starting direction 
{{ NC= LEFTPAN £ tracker ) 

NC= PANSTEP £ step size ) 

£ timebase For updating ) 

MC= PANT I MEBASE NC= PANTIMER 
< count # ov limits to achieve 
NC= PANCOUNTER } ) 

{{ NC= VOLHIGKLIM HC= V0L0WL2M 
NC= VOLT I MEBASE NC“ VOLTIHER 
NC= MCTRACKER i A3 volumes taken 


F or 


RAM ) HEX 
STEPS BETWEEN ) 
side. It right ) 
left-right action ) 


NC= VOLSTEP 


From C ) 


14 | 

15 ! 
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0 


---B1 ock 

C MUSIC VARIABLES 
{ { NC= SYNCMO NC= 

{ { NC= NOTETIMER < 
NC= COMPDURATI ON C 
COMPSTEP C step 
COMPTIMER C for 


NC= 

NC= 

NC= 

NC= 


70- 

FOR COMPUTER MUSIC GENERATOR 
STARTMC C special bvarbs for 
note "timer 3 

computer music note duration 
= { 1,0,-1 } 3 

COMPDURATI ON moving ) 


AND SYNCER 
THUMPING 3 

) 


ATRACKER NC= 
NOTECOUNTER C 


NC = MOTRACKER 


ETRACKER NC = CTRACKER 
for keN) changes 3 }} 

( -trackers of indecies "to NOTABLE and MOTABLE ) 

NC= MST ( MUSIC-STATE-TRANSITION Jump around variable ) 
NC= ENDMUSRAM ( last b^te of ram ) 

8© C= COMPTB CC? IFTRUE SWAP ONSCR> I FEND 
DUP BARRAY MUSIC-BARRAY-i 

EARRAY MUSIC-^ARRAY-2 CC? IFTRUE <ONSCR IFEND 


MB1 

MB2 


C MUSIC 


} 0 MUSIC-EARRAY-1 
} 0 MUSIC—BARRAY-2 

•Block 71- 

PROCESSOR COMANDS 


-- > 


3 HEX ( data,PORT ) 


1 

|{ 

: MASTER } 10 

B, B, 

{ 

; } I 

; ATONE > 11 

B 

j 

B, { J } 

2 


: BTONE } 12 B 

, B, { 


> { : 

CTONE } 13 

B, 

B 

, { ; } 

3 

1 { 

: VIES } 14 E, 

B, { 

i 

> 

{ : ABVOLS 

} 

16 B, B, 

4 

|{ 

: MCVOLS } 15 

B ^ B j 

{ 

} } 

{ : NOISE 

} 

17 

B, B, { 

5 

: ( 

range,disp.,port 3 { 

: 

RDRNDNTE } 0 E, B 

9 

B, 

3, i ; 

G 

! ( 

range,port 3 { 

: RRNDN 

TE } 0 

B, B, 0 E, 

B, 

{ 

s } 

7 

I < 

port ) { : RNDNTE } 

0 

B ^ B } 

0 B, FF B, { 

f 



8 

! { 

: DURATION } 1 

B ; B / 

{ 

; X 

9 f 

{ : PLAY } 

3 

B 

, { l > 

3 

! < 

address to cont . at 

3 

{ : LDPCC } 2 B., , 

{ 

1 

> 

$ 

10 

i< 

t ime,#A 3 { : 

ANOTE 

\ 

> 

ATONE 

DURATION { j 

} 



11 

! c 

time,#B 3 { : 

BNOTE 

> 

BTONE 

DURATION { ; 

} 



12 

! < 

time,#C 3 { : 

CNOTE 

} 

CTONE 

DURATION { | 

I 



13 

i< 

#A,#B,#C 3 { : 

TONES 

} 

CTONE 

BTONE ATONE 

i 

1 

> 

14 

i< 

time,#A,#B,#C 

) i : 

NOTES > 

TONES DURATION 

{ 

9 ) 

15 

j — - 

- > 









+— 

-B1ock 

72— 

— 

— 





0 

It 

MUSIC PROCESSOR COMANDS cont 

. 3 HEX 




1 

!( 

: QUIET } 4 B, 

i s > 

C 

does 

an emusic 3 





time,step, Iow , h i gh ) 
time,step,low,high ) 
computer music genera 
{ : GENMUSIC } 7 

: RERAMBLE ' 3 B, ' ; 

: STOPRAMBLE > S 3{ 


B, 


{ : RAMBLE } 5 : 

{ : RAMP > S B, 

tor, stepsize (1,0 
B, B, E, { ; } 

} C restart rasib! 


B 


B, 

• -1 


B, Bj 


> 


}? duration - 


8 

{ 

; COUNTLIMITS } 0? 7, 


£ E 

} 




3 

( 

Format for foliex i~~ 

* *§*■ 

r.-.'N v~N U 

3 3 3 "ir S: 

jc; 

t ?s,st 

epvslus - 

10 

{ 

: MOVESTEF | OB 3, 3 , 

id .? 

3 $ { 

1 j 




11 

( 

waitiot1iss;"-,sv 3 { 

s 

M 0 V E L 

OWL I M 

} 

@C 3, 

P 7? ID £ b 

12 

f 

ho 1d#of1ims,s£,rv 1 


m q >,j jr jjj 

" PtaJ s 7 IW! 

2. u a iu» — u a 

.J 

OB 3, 

P V f • 

.W JF . v-> » W ? \ 9 

13 

< 

timebase ) { E *CVcTE 

\ 

,0E E, 

B , B, 

B 

ir i' 1 

\ 

14 

( 

NO ISE,tb,ss,sv ’ { s 

MOV 

0 T 7^ 

E _ > 0F 

•u^ 

ri id 

P 9 L? 

s B , 7 , !■ } 

15 

- 

- > 








3 HEX 
} } 


i 











+-B 1 ock 
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0 
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t MUSIC PROCESSOR COMANDS coni:.,. STEREO STUFF and ABCRND 

t -trv - t imebase, stepsize> leFtvolume,-) 

HEX { : MOVESOUND ) IS B, B, B, E, { ; } 

( also notice -that: stepvo 1 is pos . For 1 eFt—Jright ) 
t For 1 imited movement:, use -the Following : # oF limits - 

{ : C0UN7PANS } 19 E, E, { ; } 

C volume moving is ind. oF stereo ) 

t AEvo1s,MCvo1s,tb,ss,11,h1 - ) 

{ : MOVEVOLS } 1A B, B, B, B, B, MCVOLS ABVOLS { 

t special opcode to reload MC For Fade out, STARTING MC - 


{ 


HITMO > IE B, B, { 


} 


— > 


-B 1 ock 


74- 


0 

It NOTE 

CONSTANTS 

) HEX 








1 

i FD 

C= 

#G0 

EE C= 

#GS0 

El C 

= #A0 

D4 

c= 

#AS0 

CS 

C 

= #B0 

2 

! BD 

C= 

#C1 

B2 C= 

#CS1 

AS C 

= #D1 

9F 

c= 

#DS1 

96 

C 

= #E1 

3 

iSD 

c= 

#F 1 

SS C= 

#FS1 

7E C 

= #G 1 

77 

c= 

#GS1 

70 

C 

= #A1 

4 

! 6A 

c= 

#AS 1 

64 C= 

#E1 

5E C 

= =S=C2 

59 

c= 

#CS2 

54 

C 

= #D2 

5 

i 4F 

c= 

#DS2 

4A C= 

#E2 

46 C 

” P 2 

42 

c= 

#FS2 

3E 

C 

~ G 2 

6 

i 3B 

c= 

#GS2 

37 C = 

#A2 

34 C 

= 4 AS 2 

31 

c 

= #B2 

2E 

C 

= #C3 

7 

1 2C 

c= 

#CS3 

29 C = 

#D3 

27 C 

= *DS3 

25 

c 

= #E3 

22 

C 

= #F3 

S 

j 20 

c= 

#FS3 

IF C = 

#G3 

IB C 

= #GS3 

IB 

c 

= 4=A3 

1A 

C 

= #A33 

9 

I IS 

c= 

#B3 

17 C= 

#C4 

15 C= 

#CS4 

14 

c= 

#D4 

13 C 

- 

#DS4 

10 

! 12 

c= 

#E4 

11 C= 

#F 4 

10 C= 

#FS4 

0F 

c= 

#G4 

0E C 

= 

#GS4 

11 

! 0D 

c= 

#A4 

0B C= 

#C5 

0A C = 

#CS5 

09 

c= 

#DS5 

08 C 

± 

#F5 

12 

! 07 

c= 

#G5 

©6 C= 

#A5 

05 C = 

#C6 

04 C 

= 

#DS6 

03 C 

= 

#G6 

13 

102 

c= 

#C7 

01 C = 

#G7 

00 C = 

#GS CC? IFTRUE ONSCR> 


I FEND 

14 

! BTABLE 

MOTABLE 23 

B, 

22 B, 

20 B, 

IE B 

t 

1C B, 

1A B 

J 

IS B, 

15 

! 16 

B, 

15 B 

, 14 B 

, 13 

B, 12 

B, 11 

33 ; 

@D 

B, 0B 

B, 

- 

— > 


+- 

— 

—B1ock 

75- 


- 








C SIN STABLE FOR LEFT-RIGHT PAN VOLTAGES ) DECIMAL 
{ : a > t STORE BYTES ON STACK IN RAM AS PATTERN ) 

{ -1 >R BEGIN UUP -1 = IF DROP 1 ELSE >R 0 THEN END 


BEGIN R > DUP -1 = IF DROP 1 ELSE 
-1 CONSTANT ~ t MARK START OF PATTERN 
BTABLE sin-table 


B, 


THEN END 


6 

K 

00-10 

) - 255 

2 

5 

5 255 

255 

254 

253 

252 

251 

25@ 248 

247 A 

7 

St 

11-21 

) - 24 

C 

2 

j) 

3 241 

239 

iS.,-J •} 

234 

O q -■? 

229 

226 223 

;p'2'0 xv 

S 

St 

22-32 

2.1 

£2 

£2 

1 

3 203 

2@S 

C? J °3 

1 SB 

‘t £■ 

1 3@ 

•*5 4 _ •. 

-] *7 ~jr A 

9 

1 < 

33-43 

) 17 


1 

0 

d 1 62 

<jj ^ “7 1 

1 52 

7 A "7 

1 42 

1 37 

132 122 

1 2 1 ^ 

10 

j t 

44-54 

) ~ a i 

5 

s. 

$!! 

T 104 




£2 

74 

SS 22 

^ C, s\ 

1 1 

It 

55 — 63 

) 5 



A 


■S *il 

■psr 

4j qj 

4 2- 

S 


A 

12 

a SUER sin 

( pas- 


< 

j? 

0< ~ < 

< r= 

S £5 p 

f P 


0 D 

MV I * 


13 

3 

0 sin-t 

able 


_ r A, 


, 3 Tj.fi 

rs n ?vf 

A 

MOV t 

’T* 





14 l 

i S l — > 


) HEX 




} 

- ) 


7 E, 


} 
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€ HELPING SUBR's for MUSCPU *** NOTICE *** ) HEX 
( The MUSPC rides in HL for -the coarse of the MUSCPU ) 

< EACH MUSCPU LOADS ITS STARTING RAM IN IY ) 

SUBR PCJUMP C reload MUSPC ) 

M E MOV, H INK, M D MOV, XCHG, < leave in HL ) 

L MUSPC Y STX, H MUSPC 14 Y STX, C store ) RET, 

SUBR portout ( pass value in A/ port i r? C ) 

A E MOV, 17 A MV I, C CMP, i all ports are 10-17 ) 

0>=, IF, < check for bad values ) 

8 SUI, ( bottom ) C CMP, 0<, IF, C oked ) 

IS A MV I, C SUB, SOUNDBOX Y SUBX, NEG, A C MOV, E OUTP, 

THEN, THEN, A XRA, RET, 

SUBR babs ( bvte absolute value ) 

7 A BIT, 0< >, IF, NEG, 7 A RES, THEN, RET, 

CODE BABS H POP, L A MOV, babs CALL, A L MOV, H PUSH, NEXT 

— > 

-Block 77- 

C HELPING SUBR's cont. ) HEX 

SUBR LIMITCOUNT ( detect Music-State-transition if completed ) 
LIMCOUNTER Y A LDX, A ORA, 0< >, IF, 

A DCR, A LIMCOUNTER Y STX, 0=, IF, ( done ) 

A RAMBLEFLAG Y STX, C stop ramble ) 1 MST Y MVIX, 

THEN, THEN, RET, 

SUBR PANOUTS C pass location in E ) 

PANPORT# Y C LDX, E B MOV, C save ) sin CALL, 

) B SUE, A 

) C 


A OUTP, 3F A MV I, C 64 steps 
sin CALL, ( enter table from bottom 
RET, 

-- > 


E MOV, 

INR, A OUTP, 


-Block 7 8- 

( MUSIC PROCESSOR- emusic ) 

DATA ENDMUS ASM PLAY 

SUBR emusic ( each EMUSIC passes vector addr in BE' ) 

MUSPC H LX I, D DAD, ENDMUS B LX I, CM MOV, H INX, E M MOV, 

A XRA, 6 H LX I, B DAD, ( skip MUSPC,STARTPC, SOUNDBOX ,PANPORT# > 
ENDMUSRAM BEGMUSRAM - 6 - 3 MV I , 

BEGIN, A M MOV, H I NX, B DCR, @=, END, 

SOUNDBOX H LX", D DAD* X C MOV, 8 E XV!, 

BEGIN, C DCS, r: DU—, 3 SCR, 0=, END, 

E XX, RE™, 

— > 
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+-Block 79- 

C OPCODE SUSP's, ©-4 ) 

SUBR RANDOMNGTES H PUSH, C 
0 D MV I, M E MOV, D PUSH, 

M E MOV, random CALL, D POP, ( disp. 

E POP, L A MOV, poi— toui CALL, H POP, 

A XRA, RET, 

SUBR LOADTIMER M A MOV, A NOTETIMER Y 
A COMPDURATI ON Y STX, A INR, RET, 

SUBR CONTJUMP M E MOV, H I NX, M D MOV, XCHG, 

SUBR QUITJUMP C H DCX, 3 in A ) RET, 

SUBR QUITYET? C QUIET ) MULTIPLE Y DCRX, 

0< >, IF, STARTPC Y L LDX, STARTPC 1+ Y H LDX, 
ELSE, Y PUSHX, EXX, D POP, emusic CALL, 1 OR I, 
— > 


save PC -from RND ) 

H I NX, M E MOV, D PUSH, H I NX, 

) D DAD, C returns in HL ) 
3 D LX I, D DAD, ( MUSPC ) 

STX, H I NX, ft XRft, 

A XRA, RET, 


A XRA, 

THEN, 


RET, 


+-Block 80- 

( OPCODE SUBR's, 5-6, HL= MUSPC ) 
iFORWARD RAMBLESTORES 

SUBR RAMBLIN' A XRA, ( turn off ramp flag 
LABEL RAMBLESTORES ft RAMPFLAG Y STX, 

M A MOV, H I NX, A HIGHLIM Y STX, 

I NX, A LOMLIM Y STX, 

I NX, A STEP Y STX, 

I NX, ft RAMELETIMER Y STX, 

Y STX, 1 A MV I, A RAMBLEFLAG 
1 A MV I, RAMBLESTORES JMP, 


M A MOV, H 
M A MOV, H 
M A MOV, H 
A TIMEBASE 
SUBR RAMPIN' 


Y STX, A DCR, RET, 


-Block 81- 

C OPCODE SUBR's, 8-0E, 10H ) 

SUBR MASTART C MASTER, 10H ) SOUNDBOX Y A LDX, 8 SUI, A C MOV, 

M A MOV, H I NX, A MOVALUE Y STX, 

A OUTP, A XRA, RET, 

SUBR RAMBLE-ON 1 A MV I, A RAMBLEFLAG Y STX, A XRA, RET, 

SUBR RftMBL E-OFF A XRA , A RAMBLEFLAG Y , »pT , 

SUBR L1MITRAMBLE < sat up LIMCOUNTER ) 


! 1 A MV I, A RAMBLEFLAG Y 


* 


10 V. 


I NX, 


I ft LI MCOUNTER Y 
i SUBR STEPMOVIN’ 

I M A MOV, H I NX. 
{ A STEPTIMEBASE 
S — > 


'X, A XRft, 

ft mov, h : 

1 S ~COFASTE 
E'OM, A SEE 


■ 7 M > 


IMF I EPS Y 
0 ft MOV, H ihA, 
STX, A XRA, RE 


>TX, 

' *•-; X 
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STOPLOWLIM Y STX, 

M A MOV, H I NX, A 


C OPCODES 0C-0F ) 

SUBR LOWMQVIN' M A MOV, H INX, A 
M A MOV, H INX, A LOWSTEP Y STX, 

A LOWCOUNTER Y STX, A XRA, RET, 

SUBR HIGHMOVIN' M A MOV, H INX, A STOPHIGHLIM Y STX, 
M A MOV, H INX, A HIGHSTEP Y STX, M A MOV, H INX, 

A HIGH# Y STX, A HIGHCOUNTER Y STX, A XRA, RET, 


LOW# Y STX, 


SUBR TBMOVIN' M A MOV, H 
A TBSTEP Y STX, M A MOV, 
A XRA, RET, 

SUBR NOMOVIN’ M A MOV, H 
A NOSTEP Y STX, M A MOV, 


INX, A STOPTE Y STX, M A MOV, H 
H INX, A TBTB Y STX, A TBTIMER 


INX, 

Y STX, 


INX, A 
H INX. 


NOSTOP Y STX, M A 
A NOT 1MER Y STX, 

A NOTIMEBASE Y STX, SOUNDBOX Y C LDX, C DCR, 

M A MOV, H INX, A NOVALUE Y STX, A OUTP, A XRA, RET, 
- > 


MOV, H INX. 


H-Block 83- 

C OPCODES 11-16 I/O PORT OUTPUTS 
SUBR OPPORT C 11H-14H, 16-17H ) 
RRC, A C MOV, M ft MOV, H 

15H ) 

M A MOV, H 
( 


and PAN COUNTING, 1AH ) HEX 


INX, portout JMF» 


SUBR 
RRC i 
SUBR 
RRC j 
SUBR 


MCMOVIN' ( 

A C MOV, 

NO ISEPORT 
A C MOV, M 
SOUNDMOVIN' 


H PUSH, PANOUTS 
M A MOV, H INX, 

M A MOV, H INX, 

A PANTIMER Y STX, 
SUBR PANLIMITCOUNT IN' 


INX, A MCTRACKER 

17H ) 

A MOV, H INX, A NOVALUE 
C 18H ) ME MOV, H INX 
CALL, H POP, C init ) 

A PANSTEP Y STX, 

A PANT IMEBASE Y STX, 

FF PANCOUNTER Y MV IX, A 
( 19 ) 


Y STX, portoul JMP, 


Y STX, por-tout JMP. 
E LEFTPAN Y STX, 


XRA, RET. 


M A MOV, H INX, 
PANTIMEBASE Y A 

— > 

-Block 

< STEREO OPCODE 
SUBR VOLMOVIN' ( 


A rANCOUNTER Y I 
LDX, A PANTIMER 


:TX, 

Y STX, 


A XRA, RET j 


84 - 

1ft, THUMPER 
1 AH ) 


. B, MUSIC GENERATOR @7H ) HEX 


2 ! 

M 

A MOV, H INX, 

A VOLHIGHLIM Y STX, 


3! 

M 

A MOV, H INX, 

A VOLOWLIM T STX, 


4| 

M 

A MOV, H INX, 

A VOLSTEP Y STX, 


5 I 

M 

A MOV, H INX, 

ft VOLT IMEBASE Y STX, 


6 i 

1 

VOLT IMER Y MVIX, ft XRA, RET, 


7 j 

SUBR MOHITTIN* < 

!■ B > 


s i 

1 

SYNCMO Y NY IN 

? C turn on THUMPBR—• & vj■ 

ns ) 3 A MV I, THU 

3! 

STA, M ft NOV, K 

... N X ; A S i A R T f:i C Y A i X #• 

ft XRA, RE”, 

10 ! 

Si I 
V 

BR MUSIC III* < 

07 ) 


11 1 

M 

A MOV, H "NX - 

A COMPDURAT I CM Y STX , 

1 NOTE!IMER Y MV 

i 2 ! 

M 

A MOV f ;-! x N .- 

A COYPSTEP Y STX« COM! 

PTE COMF11RTF Y M! 

13 f 

4 

ftTRACKER Y «v 

IX., 0 BTRACKER Y MV IX, 

®E C“RftCKFT v YV 


THUMPCOUNTER 


■’, 

1 V 


14 j 8 MOTRACKER Y 


ft XRA, RE" 


zero 










£n^wpo- i ‘®u3Co-j{nui-fi-i J )w 


t-Block 85- 

0|< OPCODE ADDRESS TABLE and FORWARDS ) HEX 
li IE C= #—OF—OPCODES 

F = process F= endprocess F= MUSEND 


TABLE OFADDRESSES 

RANDOMNOTES LOADTIMER , CONTUUMP , QUITUUMP , 

QUITYET? , RAMBLIN' , RAMPIN' , MUSIC IN' , 

RAMELE-ON , RAMBLE-OFF , LIMITRAMELE , STEPMOVIN' , 
LOWMOVIN' , HIGHMOVIN' , TBMOVIN' , NOMOVIN' , 

MASTART , 3 0 << OPPORT , >> 

OPPORT , MCMOVIN' , OPPORT , NOISEPORT , 

SOUNDMOVIN' , PANLIMITCOUNTIN' , VOLMOVIN' , MOHITTIN' , 


H-—-Block 86- 

! ( COMPMUSIC's t-disp., 15M0B, NOTABLE and THUMPLOCATI ON ) HEX 
1BTABLE THUMPLOCATI ON £ where To locate sound in stereo image ) 
1 3F B, 2A B, 15 E, ©0 B, 

IBTABLE NOTABLE ASM C 3 octave range ) 

! #G© B, #A© B, #B© B, #C1 E, #D1 E, #E1 E, #FS1 B, 

1 #G1 B, #A1 B, *31 B , *C2 B, #D2 E, *E2 B, #FS2 B, 

! #G2 B, *A2 B, *B2 B, *C3 E, *D3 E, *E3 B, #FS3 B, 

iSUBR H—disp. ( change A to a + or — 3—bit # ) 

I © A BIT, ©< >, IF, £ neg ) F8 OR I, ELSE, 7 AN I , THEN, RET, 

!SUBR 15M0D C base 21 decimal ) 15 CPI, ©>=, IF, 7 SUI, 
i < onl^i adjust: note down 1 octave ) THEN, A ORA, ©< , IF, 

I ( adjust: up 1 octave ) 7 ADI, THEN, RET, 

!SUBR UP-AN-OUT C pass index in A ) EXX, 
i © NOTABLE D LX I, 0 H MVI, A L MOV, 

! D DAD, C I NR, M A MOV, A OUTP, £ outrp noire ) EXX, RET, 

! — > 

t-Block 87- 

!< STEREO STUFF, LIMITCOUNTING ) 

i( PANLIMITS- achieving limits of volumes per channel ) 
iSUBR PANLIMIT C A8:E= LEFTVOL, D = tb, H=counter, L=stepvol ) 
i H INR, ©< >, IF, ( wasn't FF ) H DCR, H DCR, t counted > 

! 0 —, IF, ( counted down ) 

J 1 MST Y MV IX, £ detect state transit! c-n ) @ L’ M V T . > 

! THEN, ELSE, H DCR, < back to FF ) 

1 THEM, A XRA, L SU3 , £ change step si—n ) A L MOV, 


8 1 RET, £ sere or rsc.--zero ) 
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XXSTEREO** > HEX 


+-Block 

( X* MUSCPU XX 
SUBR MUSCPU ( runs in inirerrupt ) 

A XRA, MST Y CMFX, 0< >, IF, RET, THEN, ( no background ) 
NOTETIMER Y CMPX, 0< >, IF, NOTETIMER Y DCRX, @=, IF, 
COMPDURATI ON Y CMPX, 0<>, IF, 2 A MV I, NOTECOUNTER Y DCRX, 
ELSE, A INR, THEN, 

A MST Y STX, THEN, THEN, < * FANNER X ) 

— > 


-Block 83- 

< XX MUSCPU XX XXSTEREOXX ) HEX 

LEFTPAN Y E LDX, ( setups for FANNER ) 

PANTIMER Y CMPX, ( all vectoring routines follow ) 

0< >, IF, ( timer on ) PANTIMER Y DCRX, 0=, IF, ( expired ) 
PANTIMEBASE Y D LDX, FANCOUNTER Y H LDX, PANSTEF Y L LDX, 


( A&E= 1 ef tvo 1 , D=t i rner-re 1 oad , value H=countsr, L=stepvol 
E A MOV, L ADD, < newpan ) A E MOV, A ORA, 

0< , IF, < low limit ) 0 E MV I, PANLIMIT CALL, 

( ~ screen 220, PANLIMIT saps D, so a zero timer comes in 
ELSE, 3F CPI, >=, IF, C 64 5 3F E MVI, PANLIMIT CALL, 
THEN, THEN, L PANSTEP Y STX, D PANTIMER Y STX, 

E LEFTPAN Y STX, C FANOUTS creams E ) H FANCOUNTER Y STX, 
THEN, THEN, PANOUTS CALL, < pass location in E ) 

— > 


) 


90- 


H-E 1 ock 

C MUSCPU NOTE!IMER,MOSYNC ) 

A XRA, RAMBLEFLAG Y CMPX, t X RAMBLER X ) 

0< >, IF, RAMBLE! I MER Y DCRX, 0=, IF, 

STEF Y L LDX, ( setup ) SOUNDBOX Y A LDX, 8 SUI, A C MOV, 
MOVALUE Y A LDX, t ADD, < step > A MOVALUE Y STX, ( up it ) 
A OUTP, A D MOV, A XRA, SYNCMO Y CMPX, 0< >, IF, EXX, 

C X special opcode for thumping sound X ) 3TARTMC Y A LDX, 

A MCTRACKER Y 
0F0 AN I, REC - 
i THUMPCOUNTZE • 
i 0 5 MV ’ - 0 "i! - . 

i H E MOV, E LET 
1 EXX, iHEN, 

! — > 
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A 
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8 
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MORAMBLE, LOWMOVER, HIGHMOVER ) 


IF/ 


-B1ock 

C MUSCPU cant. 

< HIGHMOVER ) 

LONLIM Y A LDX, A DCR, D CMP, <, 

HIGH# Y A LDX, A ORA, 0< >, IF, 

HIGHCOUNTER Y DCRX, 0=, IF, A C MOV, 

LDX, HIGHSTEF Y ADDX, 

Y CMPX, =, IF, 0 HIGH# Y MVIX, THEN, 
STX, C HIGHCOUNTER Y STX, THEN, THEN, 
RAMPFLAG Y A LDX, 3 CPI, 0=, IF, 


HIGHLIM Y A 
STOPHIGHLIM 
A HIGHLIM Y 
LIMITCOUNT CALL, 
( just came from 


LOWMOVER ) 1 A MVI, A RAMPFLAG Y STX, ELSE, 


s i gn ) 


10! 

A ORA, O< >, IF, 

£ RAMP 

) 




11 ! 

RAMPFLAG Y INRX, 

t 

te 1 1 

LOWMOVER donothing ) 


12 1 

HIGHLIM Y A LDX, 

L 

SUB, 

A 

MOVALUE Y STX, 

ELSE, C 

change 

13 ! 

L SUB, A STEP Y 

STX 

, THEN, 

THEN, THEN, 



14|- 

- > 







15 1 








+- 

-B1ock 

92 

— 

— 

— 



0!C 

MUSCPU cant., 




MORAMELE 

cent., STEPMOVER 

1 ! 

HIGHLIM Y A LDX, 

D 

CMP, 

>= 

, IF, ( at limit ) 


2 ! ( 

LOHMOVER ) 







3 i 

LOH# Y A LDX, A 

ORA 

, 0< 

>, 

IF, C not dead 

a 1readM 


41 

LOWCOUNTER Y DCRX, 

0=, 

IF, 

A C MOV, 



5 i 

LOHLIM Y A LDX, 

LOWSTEP 

Y 

ADDX, 



G i 

STOPLOWLIM Y CMPX, 

= , IF, 

0 LOW# Y MVIX, 

THEN, 



A LOWLIM Y 
LIMITCOUNT 


2 

A 


CP I , 
ORA, 


0 =, 

0< > 


STX, C LQWCOUNTER Y STX, THEN, THEN, 
CALL, RAMPFLAG Y A LDX, 

IF, RAMPFLAG Y DCRX, ELSE, 

IF, ( rarnp ) 3 A MVI, A RAMPFLAG Y STX. 


HIGHMOVER to donutting ) 

Y A LDX, L SUE, A MOVALUE Y STX. 

Y STX, THEN, THEN, THEN, 

Y A LDX, A RAMELETIMER Y STX, 


33- 


ELSE, L SUB; 


THEN, THEN; 


( -te 1 1 
LOWLIM 
A STEP 
TIMEBA5E 
- > 

H-E1 ock 

£ MUSCPU VOLUME MOVING ) 

VOLTIMER Y A LDX, A ORA, 0< >, IF, A DCR, 0=, IF, 
£ D=MCtracker, E=MOset, H=1imitcheck, L=stepsize 
MCTRACKER Y B LDX, D A MOV, 0F0 ANI, A E MOV, D 
E SUB, VOLSTEP Y L LDX, L ADD, £ update tracker 
VOLHIGHLIM Y H LDX, H CMP, 0>=, IF, H D MOV 
A XRA, L SUE, ft L MOV, £ change dir. 5 


A 

) 


MOV; 
A D 


MOV, 


check tci 


) 


ELSE, A 
H D MOV; 


VOLOMLJM Y H LDX, H CMP, 0<, : 
st.£ ) A XRA, L SUE, A L MOV. 


c pi a i 


V o. 


THEN, THEN, 

L VOLSTEP Y STX, D A MO 
D ADD, ( AEvoIs it CC 
A OUTP, C DCR, D ft 
A MCTRACKER Y STX, 

VOLT IMEBA3E Y A LDX, THEN, A VOL 
-- > 


i Cvols ) RRC, 

) SOUNDBOX Y C 
V, E ORA, £ mosett; ■ 
OUTP, 


RRC 

LDX. 


RRC 


RPC - 


r* c p 


c bcp , 


i 


-p 


-!EN 
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-Block 34- 

( MUSCPU STEPMOVER, COMPDURMOVER 

STEPTIMER Y A LDX, A ORA, 0< >, IF, C work on it ) 
STEPTIMER Y DCRX, Qt= , IF, 

STEP Y A LDX, A E MOV, < save for sign ) babs CALL, ( 
BIGOFASTEP Y ADDX, < positive value ) 

STOPSTEPS Y CMPX, ( positive 3 ©< >, 

STEPTIMEEASE Y A LDX, A STEPTIMER Y 


abs 3 


IF, C not done ) 

STX, THEN, 7 E BIT, 
store 3 THEN, THEN, 

Y A LDX, A ORA, @< >, IF, 

( equate ) 


0<>, IF, NEG, THEN, A STEP Y STX, < 

( COMP-DURATION MOVER 3 COMPDURATION 
COMPTIMER Y DCRX, 0=, IF, COMPTB COMPTIMER Y MVIX, 
COMPSTEP Y ADDX, A DCR, 0< , IF, ( 1=>CARRY, 81 = >NC 
0 COMPDURATION Y MV IX, C both stop ) 

1 MST Y MVIX, ( tell background we're there 3 ELSE, 
A I NR, A COMPDURATION Y STX, THEN, THEN, THEN, 

— > 


) 


3 

IF, 


-Block S5- 

< MUSPCU cont., TBMOVER, NOMOVER 

i TBMOVER timebase 3 TESTER Y A LDX, A ORA, 0< >, 

( not done 3 TETIMER Y DCRX, 0=, IF, 

TIMEBASE Y ADDX, A TIMEBASE Y STX, STOPTE Y SUBX, 

0=, IF, A TESTER Y STX, THEN, 

TETB Y A LDX, A TETIMER Y STX, THEN, THEN, 

( NOMOVER noise mover 3 NOTIMER Y A LDX, A ORA, 0< >, 
NOTIMER Y DCRX, 0=, IF, < update 3 
SOUNDBOX Y C LDX, C DCR, C output port 3 
NOVALUE Y A LDX, NOSTEP Y ADDX, A NOVALUE 
NOSTOP Y CMPX, ( timer to stop? 3 
0< >, IF, ( not done, reload 3 
NOTIMEBASE Y A LDX, A NOTIMER Y 
RET, 

— > 


IF. 


Y STX, A OUTF, 


STX, THEN, THEN, THEN. 


1 

2 

3 

4 

5 

e 

7 

8 
3 i 

10 1 

11 s 

12 5 

13 1 

14 j 

15 1 


--Block 3G- 

( ** MUSIC INTERRUPTER ** COMPUTER HUS 

SUBR MUSINTERP ( music interrupter, pre-load IY 
<ASSEMBLE MST Y A LDX, A ORA, ( check overrun f 
0 —, IF, RET, THEN, A DCR, 0=, IF, ( AHA!! sta 
process JMP, THEM, ( AHHA HA!! MST=2 => COMPUT 
COMPDURATION Y A LDX, A NOTETIMER Y STX, < com 
random CALL, ( use 3 reg . selodv trackers, 1 f 


NOTECOUNTER Y A L 
LDAR, ( gen net-.’ 
BEGIN, RAR, CM* I 
( 2''-2 to 3> E 
EL'^E ^ ^ L. jN| y t .. f 

L A MOV , C do arsv 
MOTRACKER Y ADDX, 
— > 


A ORA, ®< 


- r , 


k CSV 


- f p slar, 

0 T E C 0 U X T E c 

ip?vHO 3 


MV I 

‘UP- 


D 


ft- 


IC 

3 

lag 

te 

EE 

p:t!U 

or 
3 E 

xr „ 


3 HEX 
3 

transition 3 

MUSIC ) 

MO trac 

V V 
5J 

rr- P A SJfr 


at ion 3 

ix y 


3 A MOTSACXES Y 
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A ATRACKER 
E A MOV, C 
BTRACKER Y 
A BTRACKER 
D A MOV, £ 
CTRACKER Y 
A CTRACKER 


( MUSCPU cont., RANDOM NOTES 1 

EXX, 0 MOTABLE H LXI, A E MOV, 0 D MVI, D DAD, M 
A MOVALUE Y STX, A B MOV, ( save -From soundbox 3 
SOUNDBOX Y A LDX, 8 SUI, A C MOV, 20 CPI, <, IF, 

B OUTP, C D MOV, 40 ADI, A C MOV, B OUTP, £ MO 3 
EXX, H A MOV, ( us® -this # -For disp. to index 3 t 
£ +7 -to -7 3 ATRACKER Y ADDX, 15M0D CALL, £ index 

Y STX, UP-AN-OUT CALL, 

next note 3 +~disp, CALL, ( +7 to -G d 

ADDX, 15M0D CALL, C index ©-15H ) 

Y STX, UP-AN-OUT CALL, C get from NOTE 

next disp. 3 t-disp, CALL, C +7 to -6 
ADDX, 15M0D CALL, £ index 0-15H 3 

Y STX, UP-AN-OUT CALL, 

£ done with notes 3 MUSEND JMF, 

- > 

t-B lock 98- 

0J( MUSCPU cont . , PROCESS the score, 

11 LABEL process MUSPC Y L LDX, MUSPC It Y H LDX, 

21 BEGIN, ( MUSPC in HL until done 3 

31 M A MOV, H I NX, 4-OF-OPCODES It CPI, £ bad opcode 
41 <, IF, EXX, ( swap to keep MUSPC around 3 
51 endprocess H LXI, H PUSH, ( ret to end of process 

£i 0 OPADDRESSES H LXI, £ get address of opcode ver 

71 RLC, £ words 3 A E MOV, 0 D MVI, D DAD, 

81 M E MOV, H I NX , M D MOV, D PUSH, £ RET to routine 

91 EXX, £ put MUSPC in HL 3 RET, 

101 ELSE, 1 OR I, £ quit 3 THEN, 

11 1 LABEL endprocess A ORA, ©< >, 

121 L MUSPC Y STX, H MUSPC It Y 
13 1 LABEL MUSEND 0 MST Y MV IX, £ 

141 ASSEMBLE > 

15 1 — > 

t-Block 99- 

0{f MUSIC PROCESSOR- 
11 SUBR MUSCPUS 

21 MUSICFLAG LDA, A ORA, 0<>, IF, Y PUSHX, 

3 1 0 MUSIC-BARRAY —1 Y LX IX, MUSCPU CALL, £ 

41 0 MUSIC—BARRAY-2 Y LXIX, MUSCPU CALL, ( 

5 1Y POPX, THEN, RET, 

G1SUBR busaround £ back— music-ground ) 

7! MUSICFLAG LDA, A ORA, 0< >, IF, Y PUSHX, 

8! O MUSIC-BARRAY--:. Y LXIX, MUS INTER?' CALL, 

S\ 0 MUSIC-BARRAY—2 Y LXIX, XUSZNTERP CALL, 

10 IY POPX, THEN- RET , 

11 1 CODE BMS £ cods level back— bus i c—ground 3 
1 busaround CALL, B FOR, NEXT 


A MOV, 

f 1ow chip 3 

D C MOV, THEN, 
—di sp. CALL, 
0-1SH 3 

i sp . 3 

TABLE 3 


check 3 

3 

b 3 


opverbs return non—© or 0 3 

RET, 


END, £ 

STX, 

let interrupts run 3 


MUSCPUS PUT TOGETHER 3 HEX 


£ F4 A MV 
A2 A MVI, 
53 A MVI, 


, 0 OUT, 3 
@ CUT, 3 
© OUT, 3 


F4 


MV 


A2 

53 


K 


I, 4 OUT, 3 
I , A OUT, 3 
V " , i\ OUT . 3 


-- > 










cn^uf’.j^ocxi&'JCDai^toro-^ss ui#‘Cdro*- i s>u)Co'jjnui#.tdi\)**<s> tn-f»0)N^©tDco’0criui^Cj)h) 


+-Block 100— - 

01C MUSIC PROCESSOR- ALL xmusics NEED AN IY LOAD > HEX 
1 ! 

SUBR loadpc L MUSPC Y STX, L STARTPC Y STX, 

H MUSPC 1+ Y STX, H STARTFC 1+ Y STX, RET, 

— > 


■+-Block 101- 

i( MUSCPU SUBROUTINE CALLS ) 

K * SET SCORE IN HL, RAM IN IY, MULTIPLE IN E if req. X ) 

ISUBR bmusic 

i PRIORITY Y A LDX, A ORA, @=, IF, 1 MST Y MVIX, 

! A NOTETIMER Y STX, A INR, A MULTIPLE Y STX, loadpc UMP, 

! ( leave MST=1 for BMS ) THEN, RET, 

i SUBR pmusic 1 MST Y MVIX, Y PUSHX, EXX, D POP, emusic CALL, 

! 1 A MV I, A MST Y STX, A MULTIPLE Y STX, A PRIORITY Y STX, 

1 loadpc UMP, 

i SUBR music PRIORITY Y A LDX, A ORA, 0=, IF, 1 MST Y MVIX, 

1 A NOTETIMER Y STX, E MULTIPLE Y STX, loadpc JMP, THEN, RET, 
!SUBR mpmusic 1 MST Y MVIX, Y PUSHX, EXX, D POP, emusic CALL, 
i 1 A MV 1, A MST Y STX, A PRIORITY Y STX, E MULTIPLE Y STX, 

! loadpc JMP, 

i — > 


+-Block 102- 

( MUSIC PROCESSOR- EMUSIC, EMUSIC, ... ) 

CODE EMUSIC EXX, 0 MUSI C-BARRAY-l D LXI , ( pass iro emusic ) 
MST H LXI, D DAD, 1 M MV I, < make non—zero ) 

SOUNDBOX H LXI, D DAD, CHI PI M MV I, 

PANPORT# H LXI, D DAD, PANPORT1 M MV I, 

emusic CALL, < musicoverun flag is seroed Iasi: ) NEXT 
C XX* ALWAYS CALL EMUSIC AS AN INIT IN PROGRAM XXX > 


CODE BMUSIC 

H POP, Y 

PUSHX, 


m u S I -C —TR 

!5? P /S v _ Y 

L Y I X , b r u « I~ C A L L .« 

v , pQp.y h] P Y"f 

CODE PMUSIC 

H POP, v 

~’USHX, 


0 MUSIC-EA 

EE AY- I v 

X I X ■$ p n u sic C A L L « 

v POPX-* NEXT 

CODE MMU3IC 

»_> |0|?>p 

''’OP, Y PUSHX, 


0 MUSIC — EA 

RRAY-i Y 

L X-1 X , m m u s i c C A L L , 

Y rOPX r NEX T 

CODE MPMU3I 

C K POP, 



0 MUSIC-EAERAY-i 

LX IX, bpbus ic CALL, 

V 5? f\ £? V* Vi P T V 

s- 8 vl A f !!•=» 










7 

8 

[CODE B2MUSIC H POP, 

! 0 MUSIC-BARRAY-2 Y 

Y PUSHX, 

LXIX, brnusic 

CALL, 

Y 

POPX, 

NEXT 

9 

10 

|CODE P2MUSIC H POP, 

! 0 MUSIC-BARRAY-2 Y 

Y PUSHX, 

LXIX, pmusic 

CALL, 

Y 

POPX, 

NEXT 

11 
12 

!CODE M2MUSIC H POP, 

| 0 MUSIC-BARRAY-2 Y 

D POP, Y PUSH 
LXIX, mmusic 

X, 

CALL, 

Y 

POPX, 

NEXT 


13 

14 

15 
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-Block 103- 

( MUSIC PROCESSOR- E2MUSIC, B2MUSIC, ... ) 

CODE E2MUSIC EXX, 0 MUSIC-EARRAY-Z D LXI, ( pass 
MST H LXI, D DAD, 1 M MVI, < make non-zero ) 

SOUNDBOX H LXI, D DAD, CHIP2 M MVI, 

PANPORT# H LXI, D DAD, PANP0RT2 M MVI, 

emusic CALL, < musicoverun flag is zeroed lasT ) NEXT 
( *** ALWAYS CALL E2MUSIC AS AN INIT IN PROGRAM ) 


To emusic ) 


CODE MP2MUSIC H POP 
0 MUSIC—BARRAY-2 Y 
— > 

-t-B1 ock 104- 

( CLEAR ANY PRIORITY ON THE 
CODE UNPRIOR EXX, Y PUSHX, 

0 MUSIC-EARRAY-1 Y LXIX, 0 PRIORITY 
0 MUSIC-BARRAY-2 Y LXIX, 0 PRIORITY 
Y POPX, EXX, NEXT 


D POP, Y PUSHX, 

LXIX, mpmusic CALL, Y POPX, 


MUSIC PROCESSOR ) 


NEXT 


Y 

Y 


MV IX, 
MV IX, 


C SHUT UP VERB TO QUIET BOTH MUSIC PROCESSORS 

: SHUTUP EMUSIC E2MUSIC i 

DECIMAL 


-I-Block 105- 

< JAYS VIDEO GAME GOODIES 
HEX : CL 0 4000 4@00 FILL 


) 


DECIMAL { : 

{ : QUAD } 

HEX 

CC? IFTRUE 
I FEND 

: XY 1©@ X SWA 
DECIMAL 

CODE DOIT H PC 
: INIT GRAPHIC 
— > 


BINARY 
4 BASE 


} 2 
f 


BASE 

} 


GRAPHICS MAP © FB OUTP 


X SWAP 


OTHERWISE 


GRAPHICS 


! C*- 

a 


A' 


■ NEXT 
ITP 2@4 


.0 OUTP 43 9 OUTP 










+-Block 106- 

|( QUEUE - VECTOR MANIPULATION ROUTINES ) 

!( THE QUEUE IS MAINTAINED AS A DOUBLE LINKED CIRCULAR LIST ) 
ICC? IFTRUE < ONSCR IFEND 

10 C= PQS < STATUS ) 1 C= PQFL 2 C= PQFH < FORWARD LINK ) 

!3 C= PQBL 4 C= PQBH < BACKWARD LINK ) 

15 C= PQRL 6 C= PQRH ( ROUTINE 3 7 C= PQTB ( TIME BASE ) 

18 C= VX2W ( EXCLUSION ZONE WIDTH ) 9 C= VAUXS C AUX STATUS 3 

110 C= VATMR { ANIMATION TIMER 3 

111 C= VTLL 12 C= VTLH C TIME LIMIT ) 

113 C= VXL 14 C= VXH 15 C= VDXL 16 C= VDXH ( X AND DX 3 
117 C= VDDXL 18 C= VDDXH ( DDX ) 

119 C= VYL 20 C= VYH 21 C= VDYL 22 C= VDYH < Y AND DY ) 

123 C= VDDYL 24 C= VDDYH ( DDY ) 

125 C= VSAL 26 C= VSAH ( SCREEN ADDR 3 27 C= VMAGIC ( MAGIC 3 

128 C= VXPAND C EXPANDER 3 29 C= VPATL 30 C= VPATH <. PAT ADDR 3 

1 — > 

+-Block 107- 

!< VECTOR FIELD EQUATES CONTINUED 3 

131 C= VFVPL 32 C- VFVPH C FORMATION VECTOR POINTERS 3 
133 C= VPCL 34 C= VPCH ( ANIMATION PROGRAM COUNTER 3 
135 C= VSPL 36 C= VSPH < ANIMATION STACK FOINTER ) 

137 C= VPTBL 38 C= VPTEH ( ANIMATION PATTERN TABLE 3 
139 C= VIRL 40 C= VIRH ( INTERCEPT CHECK ROUTINE ) 

141 C= VINTER < INTERCEPT CODE 3 41 C= WRACK ( RACK CODE 3 

142 C= VFNLPL 43 C= VFNLPH ( FINAL ANIMATION PATTERN ) 

144 C= VSHFTA ( MAGIC REG USED IN LAST WRITE 3 

145 C= VI DENT < IDENTITY CODE - WHAT I AM ) 

146 C= VFXBL 47 C= VFXBH < FORMATION X BIAS 3 
148 C= VFYBL 43 C= VFYBH C FORMATION Y BIAS 3 
150 C= VASTKS ( ANIMATION STACK AREA START 3 


45 C= 

46 C= 


+-- 

— 

-B1ock 


108 - 


0 | ( 

STATUS BIT 

EQUA 

TES 3 


1 1 7 

C= 

PQSRH 

C 

RUN/HALT ) 


2 1 6 

C = 

PQSDW 

( 

DONT WRITE 

) 

315 

c= 

PQSDE 

( 

DONT ERASE 

) 

4 1 4 

c= 

PQSDF 

( 

DON! FREE 

3 

5 1 3 

c= 

FQSDS 

c 

DONT SCREE 

N SYNCHONIZE 3 

612 

C- 

PQSUFP 

( 

USE FINAL 

PATTERN ON HALT 

7 1 1 

c= 

PQSNMT 

f 

NO MASTER 

T T MET " T M T T 
i i S IL- Lilli ! S 

810 

c= 

p (y p p p *p 

-■ 

OFFSTAGE F 

7 :EZZ~ J 


91( AUXILLARY STATUS 
■. 7 c= ASFLCX C F 

<i -s • ( EOUA“ES “OF VEC T ' 
12 10 C= QFL i C~ S'";-- % 

131C C ? IFTRUE C N"C~> : 
14 ! — > 

15 1 


LOCKED IN 
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< VGS VWRITE ) 

SUBR vwrite ( Write -from a vector structure 3 

( in- IX=vma<gic of proper vector J vector equates set ) 

( WRTSYS 0< > -For pattern board 0= -for software write ) 

( Out:— pattern on screen ; scradr and shift saved -For VERASE ) 
VXPAND X B LBX, VMAGIC X C LDX, VXH X D LBX, VXL X E LDX, 

VPATH X H LDX, VPATL X L LDX, H PUSH, XTIY, 

VYH X H LDX, VYL X L LDX, 
ffrelabs CALL, C calculates magic add. ) 

H VSAH X STX, L VSAL X STX, < set: scradr for erase ) 
writep CALL, ( write i *t > 

C VSHFTA X STX, ( save shift for erase ) Y POPX, RET, 

— > 


< VGS 


-B 1 ock 


110 - 


SUBR verase ( 


VERASE ) 

does pattern board erase from vector IX 


) 


( in- IX=vmagic of proper vector } vector equates set ; 
scradr and shift saved from VWRITER ) 

( WRTSYS ©< > for pattern board 0= for software write ) 

C out- erased pattern from screen ) 

VXPAND X B LDX, VSHFTA X C LDX, VPATH X H LDX, VPATL X L LDX, 
H PUSH, XTIY, 

VSAH X H LDX, VSAL X L LDX, 
writep CALL, Y POPX, RET, 

DECIMAL —> 


-Block 111- 

C GLOBAL GAME RAM AREA START ) 

HEX RAMBASE 30© t C= FIRSTRAMADDR FIRSTRAMADDR VPTR 
0 V= FBCOUNTER 3 BA= P1SCR 3 EA= P2SCR © V= MISSION 
0 V= P I ACT © V= rEACT 0 V= MISSIONCTR 
0 V= SKILLFACTOR 0 V= PLAYERUP 

0 V= NPLAYERS 0 V= OTHERFBCTR 0 V= OTHERSKILLF 


! DECIMAL 


0 v- muthax 0 y= 


BARRAY 


IRSTRAMADDR 


MU' 


t'Q 0 


© vqhead 


A 


vqhead 


1STCLRABDR 


111LASTRAMADDR 1STCLRABDR 
12!DECIMAL —> 

1 3 \ 


11 


C L R S 12 











-B1ock 11 2 - 

( NEW, IMPROVED, HOTROD INTERRUPT SYSTEM ) DECIMAL 
( THESE PARAMETERS TUNE THE BACKGROUND TIME SLICING > 

0 V= BGWINDOU ( * OF LINES FOR BACKGROUND TIME SLICE > 

O V= BGTLMT < BACKGROUND MINUMUM SERVICE FREQUENCY ) 

0 V= BACKGROUNDRUNNING 0 V= LOCKOUTCOUNTER 0 V= BGTIMER 
0 V= LPYC 0 V= LPFLAG 

O V= TIMER© 0 V= TIMER1 0 V= TIMERS 0 V= TIMERS 
DECIMAL —> 


—_—_—Block 113-—— 

( STORAGE ALLOCATOR GOODIES ) 
iSTCLRADDR VPTR ! 

24 C= NODECOUNT 64 C= NODESIZE NODECOUNT N0DESI2E * C= POOLSIZE 
POOLSIZE EARRAY MEMPOOL 0 MEMPOOL VARIABLE FREELIST 
: INITFREELI ST NODECOUNT 1 DO NODESIZE I * MEMPOOL 

NODESIZE 11-5*! MEMPOOL 1+ ! LOOP ( THREAD THRU POINTERS ) 

0 NODECOUNT 1 - N0DESI2E * MEMPOOL 1+ ! 0 MEMPOOL FREELIST ! ; 

< GET A NODE FROM ASM LANGUAGE - RETURN: HL=NODE, 0 IF CAN'T ) 

SUBR ge-tnode FREELIST LHLD, L A MOV, H ORA, ( CHECK FOR NIL > 

0 < >, IF, H I NX, M E MOV, H I NX, M D MOV, H DCX, C FREE=NXT ) 

H DCX, FREELIST SDED, THEN, RET, 

CODE GETNODE DI, ge-tnode CALL, H PUSH, El, NEXT ( TERSE ENTRY ) 
( RELEASE NODE - HL=BLOCK TO FREE ) 

SUBR freenode FREELIST LDED, FREELIST SHLD, C LINK IN AT HEAD ) 
H I NX, E M MOV, H I MX, D M MOV, RET, 

CODE FREENODE H POP, freenode CALL, NEXT —> 

-B1ock 114-- 

< ADD NODE TO QUEUE ROUTINE > 

SUBR ADDQ ( HL = NEW, IY = HEAD ) 

QFL Y E LDX, QFR Y D LDX, E A MOV, D ORA, 0< >, IF, 

QBL Y C LDX, QEH Y E LDX, H PUSH, H I NX, 

E M MOV, H I NX, D H MOV, H I NX, C M MOV, H I NX, B M MOV, 

XCHG, D POP, H I NX, H I NX, H I NX, E M MOV, H I NX, D M MOV, 


E A MOV, B I NX 
ELSE, L E MOV■ 
H I NX, E M MOV 
THEN, E QFL Y ! 
CODE ADDTQ DI, 
NEXT —> 


D A MOV, B I NX, E STAX, 

H INX, E M MOV, H I NX, D M 
5 M MOV, E QBL Y SIX, D QBM 
.] v STX, RET, 

)P, XTIY, ADDQ CALL, Y POFX ; 



i 

i 
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-Block 115-- 

C DELETE FROM QUEUE ) 

SUBR delq C IY=HEAD, IX=N0DE TO DELETE ) 

QFL Y E LDX, QFH Y D LDX, QBL Y L LDX, QBH Y H LDX, ( HEADER ) 

A XRA, D DSBC, 0=, IF, < IF I AM THE ONLY GUY LEFT ) 

A QFL Y STX, A QFH Y STX, A QBL Y STX, A QBH Y STX, ( NIL OUT ) 
ELSE, PQFL X E LDX, PQFH X D LDX, PQBL X C LDX, PQEH X B LDX, 

C L MOV, B H MOV, H I NX, E M MOV, H I NX, D M MOV, t FI PCN33=F ) 

PQBL H LX I, D DAD, C M MOV, H I NX, B M MOV, < BCFEN33=BCN1 > 

X PUSHX, H POP, XCHG, H PUSH, C DE=NODE ADDR, TOP=NODE FORM ) 
QFL Y L LDX, QFH Y H LDX, A ANA, D DSBC, H POP, 

0=, IF, L QFL Y STX, H QFH Y STX, C SET HEAD TO FCN3 ) 

ELSE, QBL Y L LDX, QBH Y H LDX, A ANA, D DSBC, 0=, IF, 

C QBL Y STX, B QBH Y STX, ( SET TAIL ) THEN, THEN, THEN, RET, 

X PUSHX, H PUSH, 


X POPXj 


CODE DELQ EXX, H POP, XTIY, 

X POPX, Y POPX, EXX, NEXT 
-- > 

■+-B1 ock 11 £- 

( ADVANCE TO NEXT NODE ON QUEUE > 

SUBR next-? ( IY = HEAD > 

QFL Y L LDX, QFH Y H LDX, H A MOV, L ORA, RZ, 

H I NX, M E MOV, H I MX, M D MOV, < DE=FORWE FORWC HEAD 33 ) 

H DCX, H DCX, L QBL Y STX, H QBH Y STX, ( BACKC HEAD Z=NODE ) 
E QFL Y STX, D QFH Y STX, C FORWCHEAD3=F0RWCNODE 1 ) 

RET, 

CODE NEXT0 XTIY, nextq CALL, Y POPX, H PUSH, NEXT 
— > 


c? CALL, 


d-B1 ock 11 7- 

!( INCREMENT TIME BASES - C = TIME BASE, IY = 0 HEAD ) 
iSUBR INCTB 

!QFL Y L LDX, QFH Y H LDX, H A MOV, L ORA, ( 0 FORW, NIL CHECK ) 
j RZ, L E MOV, H D MOV, BEGIN, ( QUIT IF NIL, ELSE REMEM FIRST > 
ID PUSH, PQTB D LX I, D DAD, M A MOV, C ADD, A M MOV, £ UPDATE > 
iA ANA, D DSBC, D POP, C AND RETURN PIP TO NORMAL ) 

|H I NX, M A MOV, H I NX, M H MOV, A L MOV, < HL=FORWENODE 1 ) 

!E XRA, A E MOV, H A MOV, D XRA, B ORA, 0=, £ ONCE AROUND ) 

SEND, RET, 


a 

a 

n 

a 

i 

0 


a 

a 










in ?*■ oi ro 


——-Block 118--- 

( NEW, IMPROVED, HOTROD INTERRUPT SYSTEM ) DECIMAL 

HEX CC? IFTRUE 62 C= IPNT OTHERWISE HERE OF + FFFO AND DP ! 

DATA KPNT 0,0,0, KPNT 2 + C= IPNT IFEND 

IPNT Z + C= BGINTVEC 

( LIGHT PEN INTERRUPT ROUTINE ) 

SUER LPINT PSW PUSH, VERAF IN, LPYC STA, 8 A MV I, LPFLAG STA, 
INMOD OUT, PSW POP, El, RET, 

C ROUTINE TO RETURN Y ADDRESS SCREEN IS AT ) 


LPFLAG LDA, 
DECIMAL —> 


ANA, 0< >, END, LPYC LDA, RET, 


H-B1 ock 11 9- 

!< RESUME BACKGROUND - END INTERRUPT ) 
iDECIMAL F = ENDINT 
iSUBR RESUMEBACKGRGUND <ASSEMBLE 
iDI, BGWINDOW LDA, C ADD, A C MOV, 

1112 SUI, 52 CPI, ENDINT URC, C A MOV, INLIN OUT, 
iBGINTVEC A MV I, INFBK OUT, 

I LABEL ENDINT Y POPX, X POPX, H POP, D POP, B POP, PSW POP, 
iEXX, EXAF, H POP, D POP, B POP, 1 A MVI, BACKGROUNDRUNNING STA, 
!BGTLMT LDA, BGTIMER STA, 

[PSW POP, El, RET, ASSEMBLE > 

• — > 


-Block 120- 

( TRY TO RUN SOMETHING IN FOREGROUND ) 

F — RETPT F= TRYAGAIN 

HEX SUBR TRYFOREGROUND <ASSEMBLE 

A XRA, BACKGROUNDRUNNING STA, El, 

LABEL TRYAGAIN GETSYC CALL, A C MOV, ( C=CURRENT LINE ) 
BGTIMER LDA, A ANA, RESUMEBACKGRGUND J2, C OR TIMER COUNT 
O v«tHe&d Y LXIX, QFL Y L LDX, QFH Y H LDX, H A MOV, L ORA 
RESUME BACK GROUND H PUSH, X POPX, PQ7B X A LDX, A ANA* 


RESUMEBACKG! 
VYH X A LDX 


■ACK GROUND 


C. . , i KT H 
AqqrMEi p 


' T Y -** — TC 

. U d- n j? jj i I f 

Imp, then, 

‘ H E N , Hit n © 3 
L LDX, PORK 


-jq CALL, 


8 

i 
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0 


1 

TIMER0 

LHLD, 

H 

A 

MOV, 

L 

ORA, 

0< 


IF, 

H 

DCX, TIMER© 

SHLD , 

2 

TIMER1 

LHLD, 

H 

A 

MOV, 

L 

ORA, 

0< 

>, 

IF, 

H 

DCX, TIMER1 

SHLD, 

3 

TIMER2 

LHLD, 

H 

A 

MOV, 

L 

ORA, 

0< 

>, 

IF, 

H 

DCX, TIMER2 

SHLD, 

4 

TIMER3 

LHLD, 

H 

A 

MOV, 

L 

ORA, 

0< 

>, 

IF, 

H 

DCX, TIMERS 

SHLD , 

5 

BGTIMER 

LDA, 

A 

AN 

A, 0< 

> 

j I F jp 

A 

DCR 

, BGTIMER STA, TH 
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7 
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-Block 121- 

( BACKGROUND END INTERRUPT ) 

HEX SUBR BGENDI PSW PUSH, B PUSH, D PUSH, H PUSH, EXX, EXAF, 
PSW PUSH, B PUSH, B PUSH, H PUSH, X PUSHX, Y PUSHX, 

80 A MV I, INLIH OUT, IPNT A MVI, INFBK OUT, TRYFOREGROUND UMP, 
F= LOCKED 
SUBR TIM11 
PSW PUSH, 


IT <ASSEMBLE ( TIMER INTERRUPT ROUTINE ) 

E PUSH, D PUSH, H PUSH, EXX, EXAF, PSW PUSH, E PUSH, 


D PUSH, H PUSH, X PUSHX, Y PUSHX, 
MUSCPUS CALL, 

LOCKOUTCOUNTER LDA, A ANA, LOCKED JN2, 
— > 


-Block 122- 

C BACKGROUND END INTERRUPT 


1 C MVI , 0 vcthead 
BACKGROUNDRUNNING LDA 
LABEL LOCKED 

Y POPX, X POPX, H POP, D POP 
EXX, EXAF, H POP, D POP, B 
ASSEMBLE > 

DECIMAL —> 


LXIX, INCTB CALL, 

A ANA, TRYFOREGROUND JNZ, 

B POP, PSW POP, 

OP, PSW POP, El, RETi 


-Block 123- 

C INTERRUPT START ROUTINE ) HEX 

CODE INTSTART DI, IPNT { SWAB } A MVI, STAI, IPNT A MVI, 

INFBK OUT, 1 A MVI, BACKGROUNDRUNNING STA, 8 A MVI, INMOD OUT, 
8© A MVI, I ML IN OUT, 

I M2, El, NEXT 
— > 
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-Block 124- 

( ROUTINE TO DELETE VECTOR IF STATUS SO INDICATES ) 
SUBR KILLOFF PQSRH FQS X BITX, 0=, IF, DI, 0 vqhead 'I 
del** CALL, PQSDF PG3 X BITX, 0 PQ5 X MVIX, 

0=, IF, X PUSHX, H POP, f reenode CALL, 

THEN, El, THEN, RET, 

— > 


-B1 ock 


125- 


1 ICC? 

IFTRUE 

< ONSCR IFEND 


2 | { 


SETP } 

0 B, , { J } 


3 1 { 


SETM } 

2 B, B, { i 

> 

4 | { 


SETR } 

4 E, , { ; } 


5|{ 


SWA IT 

} 6 B, B, { s 

} 

ei( 


ACALL 

> S B, , { J 

} 

7 I { 


A JMP > 

10 B, , { ; 

> 

S i { 


SETDC 

> 12 B, SWAP 

j ; 

9|{ 


SETDDC 

} 14 B, SWAP 

/ 

1 0 ! { 


ARET > 

16 E, { J } 


11 |{ 


AHALT 

M8 E, { } 


1 2 | { 


SET I } 

20 B, , { } 

> 

1 3 I { 


SETXC 

} 22 E, , { j 

} 

1 4 ! { 


SETYC 

} 24 E, , { ; 

> 

1 5 i { 


DISPL 

> 26 B, SWAP 

E, 

+- 

«,, 

-Block 12A- 

_ _ 


) DECIMAL 


B, { 


> — > 


MORE ANIMATION MACRO STUFF ) 
AREPEAT } 28 B, E, HERE { j 
ALOOP } 30 3, , t i } 

SETS } 32 B, B, B, { > 

PAT I > 34 B, B, ( 

ASMCALL } 3S B, 

SETPT > 38 B, , 

SETFP } 4© Bf 


> 


{ 


> 


RANDOMDO 
SETXB > 4 
SET YE } £■ 
SETXP } 5 
FOREVER ;■ 
EVERFOR ' ' 
CC? IFTRUE OFF< 


44 


— p p ' 


■ ! r 

SWAP 


, , 
* M 


> 


LX IX, 












+-Block 


127- 


1 

[SUBR RASETP M 

E MOV, 

H 

INX, 

M 

D 

MOV, 

H 

INX, E 

VPATL X STX, 

2 

ID VPATH X STX 

, RET, 









3 

1SUBR RASETM M 

A MOV, 

H 

INX, 

A 

VMAGIC 

X 

STX, RET, 

4 

! SUBR RASETR M 

E MOV, 

H 

INX, 

M 

D 

MOV, 

H 

INX, E 

PQRL X STX, 

5 

ID PGRH X STX, 

RET, 









6 

!SUBR RAWAIT M 

A MOV, 

H 

INX, 

A 

VATMR X 


STX, L 

VPCL X STX, 

7 

IH VPCH X STX, 

H POP, 

RET, 







8 

ISUBR RACALL H 

C MOV, 

H 

I NX, 

M 

B 

MOV, 

H 

INX, XCHG, 

9 

I VSPL X L LDX, 

VSPH X 

H 

LDX, 

E 

M 

MOV, 

H 

INX, D 

M MOV, H INX, 

10 

!L VSPL X STX, 

H VSPH 

X 

STX, 

C 

L 

MOV, 

B 

H MOV, 

RET, 

11 

i SUBR RARET VSPL X L 

LBX 

, VSPH 

X 

H LDX 

* 

H DCX, 

M D MOV, H DCX 

12 

IM E MOV, L VSPL X ST 

X, 

H VSPH 

X 

STX, 

XCHG, RET, 

13 

ISUBR RAHALT PQSRH PQS X 

RESX 

> 

H 

POP, 

RET, 


14 

1SUBR RASETXP 

M A MOV 

, H 

INX, 


A 1 

VXPAND 


X STX, 

RET, 

15 

. — > 











+-B 1 ock 

128 

— 








0 

it MORE ANIMATION INTERPRETER 

ROUTINES 


) 


1 

j SUBR RASETI M 

E MOV, 

H 

INX, 

M 

D 

MOV, 

H 

INX, E 

VIRL X STX, 


2 

3 

4 

5 

6 
7 
S 
9 

10 

11 

12 

13 

14 

15 


D VIRH X STX, RET, 
SUBR RASETXC M E MOV, 
D VXH X STX, RET, 

SUER RASETYC M E MOV, 
D VYH X STX, 

SUBR RAJMP M 
SUBR RASETDC 


H I NX, M D MOV, H INX, E VXL X STX, 


H 


M D MOV, H INX, E VYL X STX; 


RET, 

INX, 


INX, 

RET, , 

E MOV, H INX, M D MOV, XCHG; 

M E MOV, H INX, 

E VDXL X STX, B VDXH X STX, 

M E MOV, H INX, MB MOV, H INX, 

E VDYL X STX, B VDYH X STX, RET, 

SUER RASETBBC M E MOV, H INX, M B MOV, H INX, E VBBXL X STX, 
B VBBXH X STX, M E MOV, H INX, M B MOV, H INX, E VBDYL X STX 
B VBBYH X STX, RET, 

— > 

-Block 129- 

< YET MORE ANIMATION INTERPRETER ROUTINES ) 

SUBR RASETREP M A MOV, N INX, VSPL X E LBX, VSPH 
B STAX, B INX, E VSPL X STX, B VSPH X STX, RET, 

SUBR RALOOP M E MOV, H INX, M D MOV, H INX, VSPL X C 
VSPH X B LBX, E BCX, E LBAX, A BCR, 0< >, IF, B STAX, 

ELSE, C VSPL X STX, B VSPH X STX, THEN, RET, 


0 
1 
2 

3 

4 

5 

6 

7 

8 

9!SUBR RABISP 
10 5 A C MOV, E A MOV, 
Hi THEN, A E MOV, VXL 
12!H VXH X STX, D LB? 
13!VYL X L LBX 
14IXCHG, RET, 

15 1 DECIMAL —> 


X B LDX, 


LBX, 

XCHG j 


SUER RASET3 M C MOV, H INX, 
C XRA, E ANA, C XRA, A PQS ! 
HEX 

A MOV, H IXX, 

' A BIT, < 


M B MOV, H 
: SIX, RET, 


INX, PQS X A LDX, 


XCHG, RRC, PRC; 


IF. 


V IT'S 


L LDX, VXH X H ; 
B INX, A B MOV, 




Y« X H LDX 


E" BAD, 


VYL 


E D 

MV r 
STX 


A B MOV, 
C- L_ E , 5 ’ 

) , L V XS 

K VYH ; 


CO AN I, 

AN l , 

. X STX, 










N (TJ rt 


+--—Block 13®- 

0 j C THE ABSOLUTELY LAST SCREEN OF ANIMATION INTERPRETER STUFF ] 
11SUBR RAPATI M C MOV, H INX, 0 B MVI, XCHG, 

2!VPTBL X L LDX, VPTBH X H LDX, B DAD, M C MOV, H INX, M B MOV, 

"■C VPATL X STX, E VPATH X STX, XCMG, RET, 

SUER RASMCALL M E MOV, H INX, M D MOV, H INX, D PUSH, 

SUBR RASETPT M E MOV 
D VPTBH X STX, RET 
SUBR RASETFP M E 
D VFNLPH X STX, 

SUBR RASETXZW M A MOV, H INX, A VXZH X STX, RET, 

SUBR RARANDOMDO M C MOV, H INX, M E MOV, H INX, M 
i nap. r ANA, RNZ, XCHG, 


3 

10 
1 1 
12 

13 

14 

15 

+ 

0 

1 

2 

3 

4 

5 

e 

7 

a 

3 

10 
i i 
12 

13 

14 

15 


0 


MOV, 
RET, 

A MOV, 


H INX, 
H INX, 
H 


M D MOV, H 


INX, E VPTBL 
INX, E VFNLPL 


RET, 

X STX, 


STX, 


M 


E MOV, 
RET, 

E MOV, 
RET, —> 
131 ' 


RET, 

I NX, 


H INX. 


LDAR, C 
SUBR RASETXB 
D VFXBH X STX, 

SUER RASETYE M 
D VFYBH X STX, 

-Block 131- 

, JUMP TABLE FOR INTERPRETER 
DATA AJTEL RASETP , RASETM , 
RACALL , 

RAHALT , 

RASETREP .. 

RASETPT , RASETFP 
RASETXB , RASETYB 
— > 


M B MOV, 
M D MOV, 


H INX, 
NX, 


H 


D MOV, H I NXi 
E VFXBL X STX, 

E VFYBL X STX, 


RASETM 
RAJMP , RASETDC , 


RASETI , RASETXC , 

. RALOOP , RASETS , ... 

RASETXZW , RARANDOMDO 
RASETXP , 


ROUTINES 
. RASETR 
RASETDDC 
RASETYC 
RAPATI 


) 

RAWAIT 

RARET 


RADISP , 
RASMCALL 


( 


-Block 132- 

. ANIMATION UPBATOR ROUTINE ) 

F= ANIRET 

SUBR ainter VATMR X A LBX, A ANA, RNZ, £ QUIT IF NOT NEEDED 
v 1 • VPCH X H LDX, 


SUBR 
VPCL X L LDX 
LABEL ANIRET 
ANIRET D LX! 
AJTBL H LX I, 
B PUSH « RET, 


. D PUSH. 
B DAB, f 


M 

C 


MOV, 


MOV, H INX, 0 B MVI, XCHG, 
n INX, MB MOV, XCHG, 


Sl SUBR aup 
3!FQSUFF FZ 
0!L VPATL > 
1 l — > 


■S. i Tsir®?"' 


CALL ? 

r v / 

f \ s> "ir 


rx. H VPA T H X STX 


POSRH PQS X BITX, 

, IF, VFNLPL X L 

THEN, THEN, 


L D X, 


IF, 
VFNt 
RET, 


X H LDX 
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-Block 133- 

< DECREMENT ANIMATION TIMERS, COMPUTE VECTORING TIME ) 

F= TBVD F= TBOK F= TEGUIT 
SUBR TBCALC <ASSEMBLE Dl, 

PQTB X C LDX, VATMR X E LDX, B A MOV, C SUB, 

0>=, IF, A VATMR X STX, 0 PQTB X MVIX, 

ELSE, C A MOV, B SUE, A PQTB X STX, 0 VATMR X MVIX, B C MOV, 
THEN, PQSNMT PQ3 X EITX, TEQUIT URNZ, < QUIT IF NO MASTER ) 

0 B MV I, VTLL X L LDX, VTLH X H LDX, A ANA, B DSBC, 

TBVD JR2, TBOK UP, 

LABEL TBVD L A MOV, C ADD, A C MOV, A XRA, A H MOV, A L MOV, 
A VATMR X STX, A PQTB X STX, PQSRH PQS X RESX, 

LABEL TBOK L VTLL X STX, H VTLH X STX, 

LABEL TBQUIT El, RET, ASSEMBLE> 

— > 


-Block 134- 

( TIME BASED VECTOR UPDATE - IX=VECTOR ADDR, IY=QUEUE ENTRY ) 

< THIS VERSION VECTORS LINEARLY WITH LIMIT CHECKING ) 

HEX F= ,VLP1 F= . VLP2 F= NUD 

SUBR VFCTi C * ASSFHR* P 

C A MOV, A ANA, R2, ( DONT IF ZERO VECTORING WANTED ) 

< NOW UPDATE COORDINATES ) 


VXL X 
LABEL 
L VXL 
VYL X 
LABEL 


L LDX, VXH X H LDX, VDXL X E LDX, VDXH X D LDX, C B 
.VLP1 D DAD, .VLP1 DJN2, H A MOV, 50 CPI, NUB JRNC, 
X STX, H VXH X STX, 


MOV, 


L LDX, VYH X 
.VLP2 D DAD, 


H LDX, VDYL X E LDX, VDYH X D LDX, C B MOV, 
.VLP2 DUNZ, H A MOV, 0BA CPI, NUD JRNC, 


L VYL X STX, H VYH X STX, 28 VXZW X MVIX, RET, 

LABEL NUD PQSRH PQS X RESX, FQSDW PQS X SETX, RET, ASSEMBLE> 
DECIMAL —> 


-Block 135- 

C INITIALIZE INTERRUPT VERES > 

CC? NOT IFTRUE 

LPINT IPNT 2 - U! TIMINT IPNT U! BGENDI BGINTVEC U! 

: FIREUP INTSTART j OTHERWISE 

: FIREUP LPINT IPNT 2 - U? TIMINT IPNT U! BGENDI BGINTVEC U! 
INTSTART s I FEND 

: START DI INIT INI“FREELIST NILVQ LOCKOUTCOUNTER ZERO 


BGT I MEF 


r?0 


L-IT If 


t-n 


£.\ C. 


RO 


EGWINDG 


w 


2 BGTLMT 


|( ROUTINE TO WRITE WITH INTERCEPT CHECKING ) 
'SUER VI WRITE l N”S T IN, v m ri t© CALL, 1 NT3T IN, 
IF, VIT L X L LDX, VI R’-J X K LDX, 


i H A MOV, L ORA, A< >, 
! DECIMAL 
! — > 


DHL. 


IN. 


THF 


SI J> 


it. 











-Block 136- 

( SUBROUTINE TO UPDATE PATTERN USING XOR > 

SUBR XAWRITE TBCALC CALL, 

VECTLC CALL, C UPDATE VECTOR ) 

PQSDE PQS X BITX, 0=, IF, verase CALL, ELSE, 

PQSDE PQS X RESX, 

THEN, aup CALL, PQSDH PQS X BITX, 0=, 

IF, vwri+e CALL, ELSE, PQSDW PQS X RESX, PQSDE PQS X SETX, 

THEN, KILLOFF JMP, 

C SUBROUTINE TO XAWRITE WITH INTERCEPT CHECKING ) 

SUBR XIWRITE TBCALC CALL, 

VECTLC CALL, < UPDATE DA VECTOR ) 

PQSDE PQS X BITX, 0=, IF, verase CALL, ELSE, 

PQSDE PQS X RESX, THEN, sup CALL, PQSDW PQS X BITX, 0=, 

IF, VIWRITE CALL, ELSE, PQSDW PQS X RESX, PQSDE PQS X SETX, 
THEN, KILLOFF JMP, 

— > 

-Block 137- 

C SUBROUTINE TO VECTOR USING SECOND DERIVITIVE > 

F= VUPX F= VUPY 

SUBR VECTDD <ASSEMBLE PQSFR2 PQS X BITX, 0<>, IF, 

PQSDW PQS X SETX, RET, THEN, C A MOV, A ANA, R2, PSW PUSH, 

VXL X L LDX, VXH X H LDX, VDXL X E LDX, VDXH X D LDX, 

VDDXL X C LDX, VBBXH X B LDX, 

LABEL VUPX XCHG, B DAD, XCHG, D DAD, A DCR, VUPX JRN2, 

E VDXL X STX, D VDXH X SIX, L VXL X STX, H VXH X SIX, 

H A MOV, 80 CPI, CY~, IF, PQSFR2 PQS X SETX, PQSDW PQS X SETX, 
THEN, PSW POP, VYL X L LDX, VYH X H LDX, VDYL X E LDX, 

VDYH X D LDX, VDDYL X C LDX, VDDYH X B LDX, 

LABEL VUPY XCHG, E DAD, XCHG, D DAD, A DCR, VUPY JRM2, 

E VDYL X STX, D VDYH X STX, L VYL X STX, H VYH X STX, 

H A MOV, 182 CPI, RC, PQSFR2 PQS X SETX, PQSDW PQS X SETX, RET, 
ASSEMBLE > —> 

-Block 138- 

< SUBROUTINE TO UPDATE PATTERN USING XOR AND 2ND DERV VECTOR ) 

SUBR XADDWRITE TBCALC CALL, 

VECTDD CALL, 

PQSDE PQS X BITX, @=, IF, verase CALL, ELSE, 

PQSDE PQS X RESX, 

THEN, aup CALL, 

PQSDW PQS X BITX, ®=, IF, vwrite CALL, ELSE, 

PQSDE PQS X SETX, PQSDW PQS X RESX, THEN, KILLOFF JMP, 


12 1 

13 l 

14 i 
1 5 f 
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! LABEL JYLP1 A 
CY, IF, VDDYL 


+-Block 139- 

( UPDATE VECTOR FROM JOYSTICK ) HEX 11 C= JOYSTI 
F= JYLP1 F = JYLP2 F= JXLP1 F= JXLP2 F= JXCK 
SUBR JOYUPD <ASSEMBLE C A MOV, A ANA, RZ, JOYSTI 
IS CPI, JXCK JZ, VYL X L LDX, VYH X H LDX, VDYL 
VDYH X D LDX, C B MOV, JOYSTICK IN, 10 AN I, 0<>, 
ANA, D DSBC, JYLP1 DJN2, H A MOV, 

X H LDX, 0 L MV I, THEN, ELSE, 

LABEL JYLP2 D DAD, JYLP2 DJNZ, H A MOV, VDDYH X 
VDDYH X H LDX, 0 L MV I, THEN, THEN, L VYL X STX, 
LABEL JXCK JOYSTICK IN, 6 ANI, 6 CPI, RZ, VXL X 
VXH X H LDX, VDXL X E LDX, VDXH X D LDX, C B MOV 
4 ANI, 0=, IF, LABEL JXLP1 A ANA, D DSBC, JXLP1 
VDDXL X CMPX, CY, IF, VDDXL X H LDX, 0 L MVI, TH 
LABEL JXLP2 D DAD, JXLP2 DJNZ, H A MOV, VDDXH X 
VDDXH X H LDX, 0 L MVI, THEN, THEN, L VXL X STX, 
RET, ASSEMBLE> DECIMAL —> 

-Block 14©- 

( SUBROUTINE TO UPDATE PATTERN FROM JOYSTICK ) 
SUBR JOYWRITE TBCALC CALL, 

JOYUPD CALL, ( UPDATE FROM JOYSTICK ) 

38 VXZW X MV IX, 

PQSDE PQS X EITX, 0=, IF, verase CALL, ELSE, 
PQSDE PQS X RESX, 

THEN, aup CALL, PQSDU PQS X BITX, 0=, 

IF, VIWRITE CALL, 

ELSE, PQSDE PQS X SETX, PQSDH PQS X RESX, THEN, 
— > 


CK 

CK IN, IS ANI, 
X E LDX, 

IF, 

VDDYL X CMPX, 

CMPX, CY", IF, 
H VYH X STX, 

L LDX, 

JOYSTICK IN, 
DJNZ, H A MOV, 
N, ELSE, 

MPX, CY", IF, 
H VXH X STX, 


KILLOFF JMP, 


-Block 141- 

( COMPUTE DELTA FOR 1 COORDINATE ) 

< FIRST A NEGATION SUBROUTINE ) 

SUBR CMPHL H A MOV, CMA, A H MOV, L A MOV, CMA, A L MOV, H INK, 

RET, 

< IN: HL=T ARGET, DE=TI ME, BC = ST ART ) 

SUBR CDELTA B PUSH, fit ANA, B DSBC, CY", IF, UNSDIV CALL, 

ELSE, CMPHL CALL, UNSDIV CALL, CMPHL CALL, XCHG, CMPHL CALL, 
XCHG, THEN, B POP, ~ BAD, RET, 
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-Block 142- 

< CLEAR VECTOR ) F= INIZL 

SUER CLRVEC <ASSEMBLE X PUSHX, H POP, G4 B MVI, A XRA, 
LABEL INIZL A M MOV, H INX, INIZL DJNZ, RET, ASSEMBLE > 

< RESET ANIMATION STUFF > 

SUBR CRASHA DI, L VPCL X STX, 

X PUSHX, H POP, VASTKS D LXI, 

H VSPH X STX, 0 VATilR X MVIX, 

DECIMAL —> 


H VPCH X STX, 

D DAD, L VSPL X STX, 
El, RET, 


-Block 143- 

C SUBROUTINE TO PUT VECTOR ON PROCESS G 3> 

SUBR STARTVEC DI, Y PUSHX, 

X PUSHX, H POP, 0 vqhead Y LXIX, ADDQ CALL, 

Y POPX, El, RET, 

C SUBROUTINE TO INITIALIZE A STANDARD XOR WRITE ) 

HEX 

SUBR SETSTDW 8 Y L LDX, 3 Y H LDX, CRASHA CALL, 

6 Y L LDX, 7 Y H LDX, L VTLL X STX, H VTLH X STX, L VRACK X STX, 
5 Y A LDX, A VI DENT X STX, < SET ID BYTE WITH H.0. STATUS ) 

4 Y A LDX, A PQS X STX, 20 VMAGIC X MVIX, 

30 VXZW X MVIX, XAURITE H LXI, 

L PQRL X STX, H PQRH X STX, RET, 

DECIMAL —> 


-Block 144- 

( XVMOVE COMMAND - MOVE AN EXISTING VECTOR ) 

C VRACK XI Y1 X2 Y2 ALIST TIME STATUS VECTOR VMOVE 
CODE XVMOVE X PUSHX, H POP, Y PUSHX, D POP, EXX, 
FRAME 2 Y L LDX, 3 Y H LDX, H PUSH, X POPX, CLRVEC 
IS Y C LDX, 17 Y B LDX, 12 Y L LDX, 13 Y H LDX, 

6 Y E LDX, 7 Y D LDX, D PUSH, CDELTA CALL, 

L VXL X STX, H VXH X STX, E VDXL X STX, D VDXH X 
D POP, 14 Y C LDX, 15 Y B LDX, 1@ T L LDX, 11 Y 

. X STX, K VYH X STX, E VDYL X 


\ CDELTA CALL, 

ID VDYH X STX, 

! STARTVEC CALL 
I EXX, D PUSH, . 
j: VMOVE GETNODE 
! DECIMAL —> 


STD 14 CALL 
UNFRAME 18 
POPX, H PUS 

r > 1 • r* 


_DX, A VRACK 


CALL. 


TX, 
L *0 X 


18 1-3 LXI, SP DAD, SPHi 
=USH, X POPX« NEXT 
> IF XVMOVE ELSE XDI , 


FTP-- 


THEN 
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-——Block 145-- 

f XSTART COMMAND - START AN EXISTING VECTOR ) 

< ALI5T TIME STATUS VECTOR VMOVE ) 

CODE XVSTART X PUSHX, H POP, Y PUSHX, D POP, EXX, 

FRAME 2 Y L LDX, 3 Y H LDX, H PUSH, X POPX, CLRVEC CALL, 
SETSTDW CALL, STARTVEC CALL, 

UNFRAME 8 H LXI, SP DAD, SPHL, 

EXX, D PUSH, Y POPX, H PUSH, X POPX, NEXT 

: VST ART GETNODE DUP © <> IF XVST ART ELSE XDI FUBAR" THEN 
DECIMAL —> 


Y ) DECIMAL 


STX, 
STX, 


H --“Block 1 4G—- 

( START A VECTOR WITH JUST INITIAL X AND 
|( X Y ANIMATION TIME STATUS XYVSTART ) 

SUBR XYVST ART DI, ge+node CALL, El, H PUSH, 

FRAME 2 Y L LDX, 3 Y H LDX, H PUSH, X POPX, 

CLRVEC CALL, 6 Y C LDX, C VRACK X STX, 

12 Y L LDX, 13 Y H LDX, L VXL X STX, H VXH X 

10 Y L LDX, 11 Y H LDX, L VYL X STX, H VYH X 

SETSTDW CALL, STARTVEC CALL, 

UNFRAME 12 H LX I, SP DAD, SPHL, RET, 

( CLUDGE TO CALL AS A VERB - VERY BIZARRE BUT IT SHOULD WORK 
SUBR CLUDGEIT H PUSH, D PUSH, B PUSH, EXX, H PUSH, D PUSH, 

X PUSHX, D POP, Y PUSHX, H POP, EXX, XYVSTART JMP, 

C X Y ANIMATION TIME STATUS XYVECTOR ) 

CODE XYVECTOR D POP, H POP, EXX, B POP, D POP, H POP, 

CLUDGEIT CALL, EXX, D PUSH, X POPX, H PUSH, Y POPX, NEXT 
—, > 

+-Block 147-— 

< CHECK FOR INTERCEPT WITH VECTOR ) 

F= NOINT 

SUBR CHECKVEC <ASSEMBLE 

PQSRH PGS Y BITX, NO I NT JZ, < IF DEAD ALREADY > 

F'QSDE POS Y BITX, NOINT JNZ, < OR IF NOT WRITTEN > 

VPATL X L LDX, VPATH X H LDX, M C 
VPATL Y L LDX, VPATH Y H LDX, M E 

SUBX, 0>=, IF, 

ADD, NOINT JM. 


VYH X A LDX. 


NOINT 
VXH X 


JNC 


VYH 

:lse , 

VXH 


MOV, H I NX, 
MOV, H I NX, 
D CMP, 


m r> 


MOV, 

NOV = 


S 0 >=, IF, B CMP, 
!NO I NT JNC, ELSE 
J NO I NT JM, THEN, 
iLABEL NOINT A X 


C A" 

. A 


i , A 
", AS; 


ANA. 
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-Block 148- 

< CHECK GROUP OF VECTORS FOR INTERCEPT 
£ IX = ME, C=MASK SPECIFING SUBSET TO EXAMINE 
( RETURNS NZ AND IY=CULPRIT IF FOUND, ELSE Z 
F= ICKL F= NOTEND F= NOTHIM 
SUBR CHECKALL <ASSEMBLE 

0 vqhead LHLD, ( HL=NEXT FELLA AFTER ME ) 
LABEL ICKL X PUSHX, D POP, £ DE=ME ) 

H A MOV, D CMP, NOTEND URNZ, L A MOV, E CMP, 
LABEL NOTEND H PUSH, Y POPX, 

VIDENT Y A LDX, C ANA, NOTHIM JRZ, ( 

E PUSH, CHECKVEC CALL, B POP, 

RNZ, £ KICKOUT IF HE IS IT ) 

LABEL NOTHIM PQFL Y L LDX, PQFH Y H 
ASSEMBLE > 

DECIMAL 
— > 

+-Block 149- 

£ NUMBER PATTERNS , 5 X 
CC? IFTRUE ROMIT IFEND 
DATA NUMPATS BINARY 

E, 


RZ, 


SELECTED BY MASK? ) 


LDX, ICKL UMPR, 


7 ORDERED 0-9 ) 


01111100 
00000000 
11100100 
01000100 
00110000 
01001110 
01111000 
00000010 
01101100 
@0001100 
DECIMAL - 


B, 

B, 

E, 

B, 

B, 

B, 

E, 

B, 

E, 

B, 


10000010 
100O0100 
10010010 
1©000010 
00101000 
10001010 
10010100 
111 00010 
10010010 
1@010010 


E, 
B, 
B, 
B, 
B, 


1000001@ 
11111110 
10010010 
10010010 
0010010 © 
10001010 
10010010 
00010010 
10010010 
10010010 


B, 

B, 

B, 

B, 

B, 

B, 

B, 

£& r 


10000010 
10000000 
10010010 
10010010 
11111110 
10001010 
10010010 
00001010 
10010010 
01010010 


B, 

E, 

E, 

B, 

B, 

B, 

B, 

B, 

B, 

B, 


01111100 

0000000© 

l 0001 100 
@1101100 
@0100000 
@1110010 
011©0000 
@0000110 
01101100 
!0! & 1 ‘t \ 0 


-Block 15©- 

£ ROUTINE TO DISPLAY A BCD NUMBER 3 DIGITS LONG FROM VECTOR > 
HEX F = SHOWNUM F= NUMLP 
SUBR DISPBCD3 <ASSEMBLE 

VXL X E LDX, VXH X D LDX, VYL X L LDX, 

428 B LX 1, relabs CALL, XCHG, C A MOV, 

MAGIC OUT, B A MOV, XPAND OUT, 

VPATL X L LDX, VPATH X H LDX , 


VYH X H LDX. 


" V T 


F 


SHOWNUM CM2, H DCX, M A MO 
SHOWNUM CALL, M A MOV# 
LABEL SHOWNUM Hi F 
0 B MV I, NUMPATS 

LABEL NUMLP D LBAX, 

A M MOV, H I NX, A M 
L A MOV, 4D .ADI, A L 


H INK, M 


A MOV, 

Pf pi 


0 P Ai N I 


NUMLP D* 
DECIMAL 


5@ D 


t 


ANI, A C "ft 
B DAD, XCHi 

:■ m © v _ 7 v 

jOV , D 2 NX , 
MOV, 0 ft MV I, 

, D DAD, XCHG, 


) v - 


C MOV 


A M 


§ MV; 

M f'i V‘ ! 


T WX . 


u 


ADC 7 


A h 
RET, 


MOV 


M « <a w m w m m m m 









-Bl. 


151- 


0 

1 
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10 
1 1 
12 

13 

14 

15 

0 


C INTERRUPT WRITE 
5UBR NUMWRITE 
TBCALC CALL, 
aup CALL, 

PQSDW PQS X BITX, 
KILLOFF JMP, 

— > 


NUMBER ROUTINE ) 


0=, IF, DISPBCD3 CALL, THEN; 


C BASE 


■—B 1 ock 
STATION 


152- 


1 

[DECIMAL 

DATA 

F1 REBASE 5 

B, 13 B 

t 


2 

! QUAD 

0222 B, 

2222 B, 

2000 B, 

0000 

B, 

3 

[2111 

B, 

1111 

B, 

2220 

B, 

@000 

B, 

0 

B, 

4 

10222 

B, 

2222 

B, 

20©0 

B, 

@00© 

B, 

0 

B, 

5 

1 0000 

B, 

1110 


©022 

B, 

2200 

B, 

0 

B, 

S 

1 000© 

B, 

©1 11 

B j? 

0002 

B, 

222© 

B, 

© 

E, 

7 

i 1111 

B, 

1111 

B, 

1 t ©2 

T} 

JU J 

2222 

B, 

0 

E jf 

a 

i 0002 

B, 

2222 

E, 

2222 

B, 

2222 

B, 

1 000 

9 

11111 

B, 

1111 

B, 

1102 

B, 

2222 

B, 

© 

E, 

1© 

| ©0@© 

B , 

011 1 

B, 

00©2 

B, 

2220 

B, 

0 

E, 

11 

1 0000 

B, 

1110 

B, 

0022 

B, 

2200 

B, 

0 

B, 

12 

1 0222 

B, 

2222 

B, 

2000 

B, 

0000 

B, 

@ 

B, 

13 

12111 

B, 

1111 

B, 

222© 

B , 

0000 

B, 

0 

B, 

14 

1 0222 

B, 

2222 

B, 

2000 

B j 

0000 

B, 

0 

B, 

15 

1 

1 











■1- 

— 

-B1ock 


153- 

— 





0 

1 ( SMALL 

BASE 

) 

DECIMAL 

DATA 

BMALBA 

SE 

1 

1 0222 

E,; 

222© 

E, 

000© 

B, 

© B , 




2 

1 2222 

B, 

2200 

B t 

0@@© 

B, 

0 B, 




3 

1 001 1 

B, 

©000 

iS j? 

0000 

B , 

© B, 




4 

10111 

B, 

1000 

B, 

220© 

B, 

© E, 




5 

11111 

B, 

1110 

B, 

©220 

ID 
io / 

0 B, 




S 

1 0002 

B, 

2222 

5, 

2222 

B , 

2000 

B, 



7 

11111 

B, 

i i l @ 

ill ,J 

022"' 

id jp 

© 3 , 




a 

10111 

B, 

/| i'v-. /Ts 

p 

220© 

i:> J 

r'"'i P 




3 

10011 

B , 

Q. @ & 

r : ~- 

/> ffr f7\ 

• ? 

iA iD 




10 

1 2222 

B, 


n 

0 0. !0 0 

B j? 

@ B ?■ 




11 

1 ©222 

B, 

2220 

£$ n 

000 0 

J? 

@ 3 1 




12 

!DECIMAL 

— > 








13 

9 

! 











0 B, 


4 B, 11 Bj 


QUAD 













+-Block 154 


0 

! < GORF 

) DECIMAL 

DATA GORF G 

B , 

15 B, 

QUAD 


1 

! 2000 

B, 

3330 

B , 

0000 

B, 

0000 

B j> 

0010 

B, 

0 

B, 


2 

i 2003 

B / 

3333 

B j 

3300 

E, 

0000 

B, 

0100 

E, 

0 

E, 


3 

12223 

B, 

3333 

B, 

3333 

B / 

3000 

B f 

1 000 

B, 

0 

B, 


4 

! 0003 

B, 

3333 

B , 

3333 

B, 

3333 

B, 

0000 

B, 

0 

B, 


5 

i 0033 

E, 

3331 

B, 

1111 

IS 

£:* / 

3333 

B , 

3300 

B , 

0 

B, 


6 

10031 

B , 

1132 

E, 

2111 

B, 

3333 

B, 

3330 

E , 

0 

B, 


7 

I 0032 

B, 

1233 

B, 

3333 

B, 

3333 

B j 

3333 

B, 

0 

B, 


S 

! 0031 

B, 

1133 

B, 

3333 

B, 

3333 

B, 

3333 

B, 

0 

E, 


9 

! 0032 

B, 

1233 

E, 

3333 

B , 

3333 

B, 

3333 

B , 

0 

B, 


10 

10031 

B, 

1131 

B.. 

1111 

E, 

3333 

B, 

3330 

B, 

0 

E, 


11 

10033 

E, 

3332 

B j 

2111 

B, 


B, 

3300 

E, 

0 

B, 


12 

1 0003 

E / 

3333 

B, 

3333 

B / 

3333 

B, 

©©©0 

E, 

0 

B, 


13 

12223 

B, 

3333 

B i 

3333 

B, 

300© 

B, 

1000 

B, 

© 

B, 


14 

12003 

B, 

3333 

B , 

33@0 

B, 

0000 

B , 

0100 

B, 

0 

B, 


15 

12000 

B, 

333© 

B f 

0000 

E, 

0000 

B, 

0010 

B, 

0 

B, 

-> 


+- 

— 

—B1ock 


155 

— 








0 

1C GORFB 

) DECIMAL DATA 

GORFB 

6 

B, 15 

B, 

QUAD 


1 

1 0000 

E, 

3330 

B , 

0000 

E, 

000© 

B , 

2000 

B, 

© 0 © © 

B , 

2 

10003 

B, 

3333 

B , 

330© 

B, 

000© 

E, 

0200 

E, 

©000 

B, 

3 

11113 

B, 

3333 

E, 

3333 

B, 

3000 

B, 

2@00 

B, 

0000 

B, 

4 

1 1003 

B, 

3333 

E, 

3333 

B, 

3333 

B, 

©000 

B, 

0000 

E, 

5 

1 1033 

B, 

3331 

B, 

1222 

B , 

3333 

B, 

330© 

B , 

0000 

B, 

6 

10033 

B / 

2332 

B, 

2222 

H / 

3333 

E, 

3330 

B , 

000© 

B, 

7 

10033 

B, 

2333 

E, 

3333 

E, 

3333 

B, 

3333 

E, 

0000 

B , 

S 

1 0033 

E, 

2333 

B, 

3333 

E, 

3333 

B, 

3333 

E, 

0000 

B, 

9 

1 ©033 

E, 

2333 

E, 

3333 

E, 

3333 

E, 

3333 

B f 

000© 

B, 

10 

1 0033 

B , 

2331 

B j 

1 222 

E / 

3333 

B , 

3330 

B ? 

000© 

B , 

11 

11033 

B , 

3332 

B, 

2222 

B, 

3333 

B, 

3300 

B, 

0000 

B / 

12 

1 1003 

B, 

3333 

B, 

3333 

E i 

PPP C3 

W W W W 

B JH 

@000 

B, 

0© 

00 

B t 

13 

11113 

B, 

3333 

E, 

3333 

B, 

3©©© 

B , 

2000 

B, 

0000 

B, 

14 

1 0003 

B, 

3333 

B, 

330© 

B , 

0000 

B / 

0200 

E, 

0000 

B j> 

15 

1 0000 

B, 

3330 

B i 

0000 

B, 

0000 

B , 

2000 

E/ 

©@00 

E, DECIMAL 


+ '- 

— 

—B1ock 


1 5S 

— 








0 

i C GORF 

2 AND 

GOR 

F 3 

) 








1 

1 DECIMAL 

DATA 

G0RF2 3 

B , 

5 B , 

QUAD 





2 

1- 2033 

0010 0000 

s\ 









3 

1- 2333 

130© ©0©© 

A 









4 

1~ 0313 

3330 0000 

/\ 









5 

2333 

1300 0000 

.A. 









6 

1~ 2033 

0010 @000 










7 

j DECIMAL 

DATA 

fX fg O 

(£“ CD’ CD 

V 

Jf 


QUAD 





3 

1- 2003 

■^3 p i£>) gS; ^ 

rjC* f >.1 |g 










9 

! ~ 2233 

pi p 2 


A 









10 


C? 

t— 

CD CD -? O .CD 

fy fa 










1 1 

\ '■* 0 3 ^ 


C3 C< CD CD CD 

f7.i Qf 

A 









12 

jj 002 

z 

3213 ‘3 

© © © 

A 









13 

I ~ 223 

3 

3333 3 











14 

f ~ 200 

3 

330® 1 

©@© 










1 5 

1 DECIMAL 

-> 





















+-Block 157 


0 

! f 

GORF 

1 AND 

GORF 4 ) 




1 

j DAT A G0RF1 2 

B t 

3 E, QUAD 



2 

s ^ 

2033 

0000 

A 





3 

1 

0313 

3000 

A 





4 

1 wv 

2033 

0000 

A 





5 

iDEC IMAL 

DATA 

G0RF4 4 E 

, 9 B 

J 

QUAD 

6 

1 

2003 

3300 

0001 

0000 

/V 



7 

i ^ 

2033 

3333 

0010 

0000 

A 



8 

! * v 

2233 

3333 

3300 

0000 

A 



9 

• -V 

0032 

3211 

3338 

0000 

A 



10 

J 4# 

0031 

3333 

333© 

0000 

A 



11 

I JV 

0032 

3211 

3330 

0000 

A 



12 

J -V 

2233 

3333 

3300 

©00® 

A 



13 

J ^ 

2033 

3333 

0010 

000® 

A 



14 

! ^ 

2003 

3300 

0001 

0000 

A 



15 

iDECIMAL 

-- > 









X> 1 ^.1, 

-J CO 







JJ I UL 

K. 

1 Do 




0 

!< 

GORF 

5 ) 






1 

[DATA G0RF5 5 

B, 

12 E, 

QUAD 



2 


2008 

3333 

0000 

0010 

0000 

A 


3 

1 "V 

2003 

3333 

3338 

©100 

0000 

A 


4 

1 j\. 

2223 

3333 

3333 

3000 

@000 

A 


5 

J ■'V 

0003 

3332 

2113 

330® 

0000 

A 


e 

I -V 

0833 

1231 

1113 

3330 

0000 

A 


7 

1 ■"* 

0033 

1133 

3333 

3333 

0000 

A 


8 

! v 

0033 

2133 

3333 

3333 

0000 

A 


9 

I 4/ 

0033 

1232 

2113 

3330 

0000 

A 


10 

! JV 

0003 

3331 

1113 

3300 

000© 

A 


1 1 

1 -V 

2223 

3333 

3333 

3000 

0000 

A 


12 

1 4, 

2003 

3333 

333© 

® 1 @0 

0000 

A 


13 

1 ~ 

2000 

3333 

0000 

0010 

0000 

A 


14 

!DECIMAL 

— > 






15 

| 

+- 


— B1 oc 

k 

159— 


, . 


0 

It 

FIRE 

BASE 

EXPLOSION 

PATTERN 

> 

1 

iDATA FBEXF1 

4 B, 

12 E, 

QUAD 



2 

!0000 B/ 

3000 

B , 

0® 1® E 

, 000® 

B, 

3 

13000 B, 

3303 

E, 

0000 B 

, 0000 

B , 

4 

10333 B, 

3333 

B jf 

0030 B 

, 0000 

B , 

5 

10033 E, 

3333 

B , 

333® B 

f 0 0 @ © 

B, 

£ 

10033 B, 

3133 

3B t 

1333 E 

, 000® 

B, 

7 

1 3333 B jr 

1111 

B } 

133© ;3 

J 0000 

B, 

8 

13331 B, 

1 1 1 1 

£> p 

.■C -■*- pi 

, 00© 

A 

p 

9 

1 03 

33 B « 

3311 

■ 

0 jp? 

j ■■M '0 

© 

kS j 

1 0 

1 80 

33 B j 

@333 

33 7 

•C5 o ^ 77 

tOi rv' 
P -4/ ‘■O' l O- 

0 

3 7 

1 1 

1 1030 B, 

8033 

TT* 

•a £'■ ^ © 7r; 

7 ©00 

0 

B, 

12 

10080 2 

©833 

p 

/v & iSh 7^ 

7 @00© 

B } 

13 

10000 E, 

0083 

p 

jJJjl fp |^1 IT? 

. ®0® 

0 

B, 


14 | DECIMAL —I: 











+- 

— 

•B1 ock 


160- 

— 







0! ( ANOTHER FIREEASE EXPLOSION 

PATTERN 

) 



1|DATA 

FBEXP2 5 

B 

, 17 B 


QUAD 






210001 

B, 

0000 

E, 

0000 

B, 

0000 

B, 

0000 

B, 



310000 

B, 

1000 

B, 

0000 

B / 

0000 

B, 

0000 

B, 



4|0000 

B, 

1110 

B, 

©00© 

B , 

0000 

B, 

0000 

B, 



5!0000 

B , 

0110 

E, 

0010 

B, 

000© 

B, 

0000 

B, 



S j 0000 

B, 

0111 

E j 

111© 

E, 

0000 

B, 

3000 

B, 



7|0000 

E, 

0131 

B, 

1110 

B, 

@110 

B, 

0000 

B, 



S10000 

B, 

1133 

E, 

3111 

E, 

1111 

B, 

0000 

B, 



9i0000 

B, 

•1133 

B, 

3333 

E, 

3311 

E, 

0000 

B, 



1013001 

B, 

1333 

B, 

3333 

B, 

3310 

B, 

0000 

B, 



1110111 

B , 

1333 

B * 

3333 

3, 

3110 

E, 

0000 

B p 



1210111 

B, 

3333 

B , 

3333 

B JF 

311© 

E, 

0000 

B, 



1310011 

E, 

3333 

B, 

3333 

B, 

3311 

E, 

0000 

B, 



1 4 i 001 1 
15 ! — > 

B, 

3311 

E > 

3331 

B , 

3310 

B, 

0000 

E, 



H- 

— 

■B1 ock 


161- 

— 







0i( CONTINUATION 

OF FBEXP2 , PHASOR 

AND 

NULPAT 

) 

1|0000 

B , 

1111 

B, 

1111 

JC> / 

11 1 0 

B, 

0000 

B, 



2 ! 0011 

E, 

0110 

B , 

0110 

E, 

1011 

B, 

1 ©00 

B, 



3 i 0010 

B, 

0000 

B, 

0000 

E , 

1 00© 

E, 

1 000 

B, 



411100 

B , 

0000 

B, 

0000 

B JF 

1 000 

B, 

0000 

B, 



5!DEC IMAL 

DATA 

PBURST 4 

B 

/IB, 

QUAD 1111 

B, 1111 B/ 1111 b, 0 b. 

6!DECIMAL 

DATA 

NULPAT 1 

B 

/ IB, 

0 

B, 




7iDECIMAL 
8! 











3! 

10 1 












11 ! 












12! 












13! 












14 ! 












15! 












-*- 

— 

■B1 ock 


162— 

— 







0! C FBEXP3 ) 










1 ! DAT A 

FBEXP3 6 

B 

, 23 £ 

J 

QUAD 






210000 

B , 

0000 

B , 

2000 

B , 

000© 

B , 

0000 

B, 

0000 

B, 

3 i 0000 

B, 

0002 

B , 

1200 

B, 

@000 

B, 

0 © 0 0 

B, 

000© 

B, 

4 ! 0000 

B, 

2221 

B , 

1 120 

B, 

0000 

B, 

@000 

B, 

0000 

B , 

5 ! 0002 

B, 

1111 

B, 

1112 

B, 

0022 

B, 

@000 

B, 

0000 

E, 

6 ! ©023 

B, 

3133 

B y 

3311 

B , 

? 

B, 

2000 

B • 

0000 

B, 

7!021 1 

E, 

3333. 


Q ■' , 3 $ 

s ? 

i„ •“ ■’’I 

£5 j? 

120© 

•S JF 

@000 

E, 

8!0021 

t? 

*31 *5 <“1 

B p 

3333 

J? 

R R r\ ■’ 

US' • 

1 1 2® 

3 j 

0 0 0 0 

B, 

3 ! 0002 

]B f 

O-'T; ^ *7% 

p 

*3 ’TT- 'T- 

J? 

■^1 “’£l ■'Jl 

.p 

i 1 1 3 

p 


■R „ 

JU- .? 

1 © j 0 0 0 @ 

$5 / 

4 r - W 1 W J 

"R r 

vF’ ■'7;. 

•S J? 

3 3 -3 3 

B p 

2 i 11 

'3 p 

2 © © 0 

B, 

11 i @002 

B , 

-J 

R 

^2 ^ 

~"i 

■O' j 

3333 

p 

■"3? F3 ■'2 flj 


12@© 

is p 

12 ! @021 

B, 

i w 3 w 

iS jf 

■”! r ~’ 

F j 

^ ■'3 ’Tj ' 

iS Jr 

331 '! 

jjj j? 


p 

13 i ©Si 1 

B, 

^ 

iiS j? 

■T’ -"3 

S p 


* 

3 i i 2 

Tpj 

0000 

Jl? j? 

14 ! 2211 

15 i — > 

B s 

3333 

AS j 


T£ 5 > 

M P 

3332 

O jf 

•1 1 20 

id? jf 

@000 
















+- 

-— — 

ts l ock 

1 to J- 

— 







0 

! ( CONTINUED FBEXP3 > 








1 

1 0211 

B, 

1133 

B, 

3333 

B, 

3311 

B, 

1120 

B, 

0000 

Bjf 

2 

[0021 

B, 

3333 

B, 

3333 

3, 

3331 

B/ 

2200 

B, 

0000 

B, 

3 

! 0002 

B / 

3323 

B, 

3333 

B, 

3332 

B, 

8800 

B, 

0000 

B, 

4 

! 0000 

B, 

3231 

B, 

3333 

B, 

3332 

B, 

@000 

B , 

0000 

B, 

5 

! 0000 

B, 

2133 

3, 

3333 

B, 

3332 

B, 

2200 

B, 

0000 

B, 

6 

i 0002 

B t 

1113 

B / 

3133 

B, 

3331 

B, 

1120 

B, 

0000 

B, 

7 

10000 

B, 

21 1 1 

B ; 

1123 

B , 

1311 

B, 

1200 

E, 

0000 

B, 

8 

i 0000 

B, 

0211 

B, 

1202 

B, 

1111 

B, 

2000 

E, 

0000 

B / 

9 

i 0000 

B , 

0021 

B, 

2000 

B, 

2112 

B j 

0000 

B, 

0000 

B t 

10 

j 0000 

B , 

@002 

B, 

8 8 8 8 

B / 

022© 

B, 

0000 

B f 

0000 

B, 

11 

! — > 












12 













13 













14 













15 














■f- 

— 

B 1 ock 


1S4- 

— 







0 

iC FBEXP4 

) 










1 

I DECIMAL 

DATA 

FBEXP4 £ 

B 

, 23 

B, 

QUAD 




2 

‘ 2000 

B , 

000© 

3B j 

0020 

B > 

0888 

B / 

0000 

B, 

2000 

B / 

3 

1 0200 

B, 

0000 

B, 

0200 

B, 

0000 

B, 

0002 

B / 

0000 

B, 

4 

1 0020 

E, 

0000 

B * 

2000 

B , 

0000 

B, 

0020 

E, 

0000 

B, 

5 

i 0002 

B, 

0000 

B / 

2000 

B , 

0000 

B, 

0200 

E > 

@000 

B, 

e 

1 0000 

B, 

2202 

E, 

2201 

E, 

1000 

B, 

2000 

B, 

0000 

B / 

7 

i 0000 

B, 

0223 

B, 

1332 

B , 

1 102 

B, 

0000 

B , 

0000 

B , 

8 

i 0000 

B, 

2233 

B, 

n'znn 

■—■ w w W 

3, 

2110 

B, 

©002 

B, 

©00© 

B, 

9 

1 0000 

E, 

0231 

B, 

■J -J J -J 

B, 

3310 

B, 

0020 

B, 

0000 

B, 

10 

j 0000 

B, 

0223 

B > 

1 333 

S r 

3111 

B, 

2200 

B, 

0000 

B, 

11 

| 0000 

E , 

0023 

E > 

1333 

E, 

312© 

E, 

000© 

E, 

0000 

B i 

12 

{ 0000 

B, 

2223 

B, 

1333 

B, 

3122 

B, 

©000 

3B j * 

0000 

B, 

13 

! 0002 

B, 

2331 

B , 

3333 

B j 

3312 

B t 

000© 

B, 

0000 

E, 

14 

1 0022 

B, 

3133 

B, 

3333 

B ! 

3220 

B, 

0000 

B , 

0000 

B, 

15 

j — > 













-j-- 

— 

B1 ock 


1S5- 

— 







0 

!< FBEXP4 

CONTINUED > 








1 

i 0223 

B, 

3113 

B , 

3333 

3 t 

1200 

E, 

0000 

B, 

0000 

B, 

2 

1 0002 

B, 

2311 

B, 

3331 

B , 

1220 

B, 

@000 

£? j 

@000 

B , 

3 

\ 0002 

B, 

2233 

B, 

3331 

B , 

3322 

B, 

0000 

B, 

0000 

B, 

4 

i 0020 

B , 

0232 

IB jp 

2233 

B, 

3320 

B, 

©000 

B, 

©000 

B, 

5 

i 0200 

B , 

@220 

E, 

@223 

3, 

3222 

B, 

@000 

B , 

0000 

B, 

6 

j 2000 

B, 

0000 

23 ? 

@022 


2202 

E, 

2000 

■p 
■L? J 

@00© 

23 j? 

7 

1 0000 

E, 

0000 

B ? 

jfJSr (jJJjj O 

9 

8888 

B j 

j£3*i 

B j* 

®0®0 

B j 

8 

1 @000 

B, 

0 0 Q 0 

Jv? f 

;© jr 8 8 

& p 

© © 8 8 

B p 

0 ■*£ 2 0 

b p 

8 © 8 8 

,b p 

9 

! @000 

B j 

0000 

B » 

200® 

b p 

0000 

B j? 

©002 

id> jp 

8 8 8 8 


10 

j @000 

E , 

@00® 

E a 

”'£*' “w - v^f' 

T> 

rlTj (Hf! FJh *> 
0 ■*' ‘& 1 

B p 

0000 

3 - 

A 

^ ns? 



11 I DECIMAL — > 

12 1 
13 1 
1 At j| 

1 5 i 











4-B 1 0 

0!< FIREBASE 

1 |DAT A FBEXP5 

ck 166- 

EXPLOSION 5 
6 B i 23 B * 

) 

QUAD 


2|- 

0000 

0000 

0010 

0@®3 

0000 

0000 

A 

3 i - 

0000 

0300 

1001 

1000 

0300 

0000 

A 

4 | - 

0000 

2030 

0200 

@@20 

0000 

0000 

A 

5 1 - 

0000 

0000 

0001 

@000 

0000 

0000 

A 

6 ! - 

0300 

2100 

200® 

3@@® 

0200 

0000 

A 

7i- 

0030 

0200 

0002 

© 0 @ © 

@033 

3000 

a 

Si- 

@300 

0020 

@ 2 2 © 

@030 

030© 

0000 

a 

g i -s. 

0000 

0000 

0 3 @ © 

@@©@ 

0003 

0000 

A 

1 0 [ - 

0033 

3002 

220© 

@110 

001 1 

1000 

A 

ill- 

0003 

3001 

200© 

110© 

©122 

000© 

A 

1 2 i - 

0033 

2201 

22@i 

1010 

1022 

1000 

A 

13 i - 

3300 

0221 

2011 

1100 

1110 

0000 

A 

14 1- 

3330 

©022 

2001 

1 1 1 0 

1100 

0000 

A 

15!- 

0030 

2000 

0 £. &L 

2100 

0000 

1 ©0© 

A 

+— 
0 i C 

-Block 167— 

FEEXP5 CONTINUED ) 


~~ 


1 i - 

0033 

1110 

@02© 

1020 

1100 

0000 

A 

2 ! ^ 

0300 

0110 

020® 

1©@0 

0100 

©000 

A 

3 i - 

0001 

0003 

©03© 

@0 1 © 

0030 

©000 

A 

4 i - 

0000 

010© 

@0@@ 

0000 

1000 

© @ 0 0 

A 

5 i - 

0200 

0000 

00 1 0 

0000 

0000 

0000 

A 

6 i - 

0001 

0030 

@@@0 

@03© 

0010 

0000 

A 

7 | - 

0000 

0000 

0020 

@000 

0000 

@000 

A 

Si- 

0000 

0010 

©00@ 

0 1 00 

3000 

0000 

A 

3 j — 0000 

10iDEC IMAL 
11 1 

1 H i 

13 1 

14 ! 

15 ! 

0000 
-v 

0102 

0030 

0000 

@000 

A 

+— 
0 i ( 

FIRE 

-Block 168— 

EASE EXPLOSION 

6 ) 



1iDATA FBEXP6 

G B } 

23 B * 

QUAD 


2 ! - 

0000 

0000 

3@@0 

@00© 

0000 

0000 

A 

3 i - 

0000 

0020 

@000 

©300 

@000 

0 @ 0 0 

A 

4 ! - 

0000 

0000 

0300 

0000 

0010 

0000 

A 

5 i - 

0001 

0000 

0000 

0200 

©@0@ 

@ 0 0 ® 

A 

6 1 - 

0000 

0000 

@@00 

@@@@ 

@0@@ 

@ @ 0 0 

A 

7 s- 

0002 

@ © 1 © 

0 @ V] ^ 

ifl:i C'- ^ 

02@© 

@©.©0 

A 

' jj 

0 ®@2 


* A A A 

@ @ 

@00© 

@1 0 0 0 

A 

<CS ' wv- 

0000 


• @ q @ 

r> r> $i 

@ @ 0 |@ 

3 © @ @ 

A 

10’ — 

0 1 0 0 



2©@@ . 

@@@@ 

@ @ @ @ 

A 

111- 

0 0 0 1 


@000 

A -A |C«! -•! 

© 3 %3 @ 

© @ @ 0 

A 

1 2 8 — 

3@@ 0 

0000 

0©2® 


0 @ 0 3 

!& ^ @ @ 

. A 

13 I - 

@020 

@2 ©3 

000(0 

* 1 5 r>i 

@©1 @ 

@0-00 

'a 

1 4 J - 

0000 

0001 

=»”!, fa 

A |fSi f? A| 

2 @ 0 2 

05-00 

A 

15!- 

203© 

^ @00 

Qj @ 0 @ 

A O fT;, 

© © 0 @ 

^ l$! ^ 0 











-B1 ock 


169- 


0 

( 

FIRE 

BASE 

EXPLOSION 

6 CONTINUED 

1 

'Vr 

0001 

0000 

0200 

0003 

0000 

1 000 


2 

-V 

1000 

001 0 

0003 

0 1 00 

0020 

0000 


3 

■>v 

0000 

0000 


0000 

0000 

0000 

A 

4 

'Vf 

0030 

0300 

0000 

©000 

0200 

0000 

/\ 

5 

*v 

0000 

0000 

0000 

0000 

0000 

0000 

A 

6 

-V 

0000 

3010 

0000 

1 000 

0200 

0000 

A 

7 

■V 

0000 

0100 

02@@ 

0003 

0000 

0000 

A 

8 


0000 

0003 

0010 

0000 

0000 

0000 


9 

■v 

0000 

0001 

002© 

■1000 

0000 

0000 

A 


10 
11 
12 

13 

14 

15 

0 


DECIMAL 


-Block 170- 

ALIEN EXPLOSION PATTERN 


1 ! DATA 

EXPLOSI ON1 

3 B, 

1 1 

B, QUAD 



210000 

B, 

0000 

E, 

0000 

B, 

0000 

Bf 

0000 

B, 

3 ! 0000 

B, 

0010 

B , 

0000 

B, 

0100 

B, 

3000 

B, 

4 ! 0033 

E, 

3330 

B t 

0000 

33 / 

0003 

B, 

1300 

B, 

510031 

B, 

1130 

B , 

0000 

B, 

0033 

B, 

1330 

E, 

6 ! 01 03 

B, 

3000 

B / 

0000 

B, 

0000 

B, 

001 0 

B, 

7 I 0000 

E, 

0@0© 

E, 

0000 

irs 

JiJf } 





8!DEC IMAL 

DATA 

EXP 

LOS I 

QN2 

3 Bf 

11 

Bf QUAD 

9 j 1001 

B, 

0001 

B.. 

000© 

B., 

01 00 

B t 

1010 

B, 

10 ! 001 1 

B , 

1100 

B, 

0000 

B , 

0111 

Bf 

31 1 1 

Bf 

11i0013 

B, 

3310 

33 f 

0000 

B, 

101 1 

Ef 

3110 

B, 

1210113 

B, 

1100 

B, 

0000 

B, 

001 1 

B, 

©1 11 

B, 

1310101 

B, 

01 10 

B, 

0000 

B, 

0000 

Bf 

0010 

Ef 

14 ! 1000 

B, 

1001 

Bf 

000© 

B, 





15|DECIMAL 

-> 








+- 

— 

-B lock 


171 

— 






( MORE ALIEN EXPLOSIONS ) 


1[DATA 

EXPLOSI0N3 

3 B j? 

12 

2!0000 

B, 

0101 

Bf 

0000 

Bf 

3!1000 

B, 

0000 

E, 

0000 

B f 

4 :0010 

Bf 

0000 

Bf 

0000 

Bf 

5 i 0000 

B, 

3000 

Bf 

0000 

Bf 

6 ! 0003 

Bf 

3301 

B f 

@©00 

Ef 

7 S 0033 

Ef 

2301 

Bf 


1R 

8 I 0003 

B., 

p p 0 

™’ 

000© 

*T' 

S [ 0003 

Bf 

p p p 0 

P 

fRi 0 0 €'■ 

J? 

10 1© i 00 

E., 

p gs 0 £g 

JR £ . 

fCS 

0 J 

1 1 l ©00© 

Bf 

0 0 $l! 

T"! ^ 

0000 

9 

12I0001 

B , 


T© 

0 0 0 0 

■ 

13 J 000© 

IP 

** 7 

@ @ 1 © 

R ■» 

©000 

-C;> jf 

14 1 DEC I S' 

15 1 

1.AL 

—" > 





QUAD 


0000 B j 
0000 B , 
0000 B , 
0000 E f 
0000 Bf 


0000 B, 
0000 E f 
0000 Ef 

0000 Bf 

0000 Bt 











+- 

— 

-B1ock 
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— 







0 

it EXPLOSION PATTERNS 

) 

DECIMAL 





1 

i DAT A 

EXPLOSI0N4 

3 B, 

1 1 

B , QUAD 





2 

13001 

B / 

0020 

B , 

0000 

B , 

3001 

B / 

0030 

B / 

@@@@ 

B 

3 

j 0300 

B, 

0300 

B, 

0000 

B, 

0001 

B, 

1003 

B / 

©00© 

B 

4 

10111 

E, 

1100 

B, 

0000 

E, 

2110 

B, 

1102 

B, 

0000 

B 

5 

10101 

B, 

1000 

B, 

0000 

B, 

01 1 1 

B , 

1101 

B / 

0000 

E 

e 

1 2001 

B, 

0000 

E, 

@@00 

B, 

3001 

B , 

0220 

B, 

0000 

B 

7 

1 0020 

B jr 

0101 

B, 

000© 

B, 

DECIMAL 





s 

1 DATA 

EXPLOSIONS 

3 E, 

11 

E, QUAD 





3 

1 0000 

B, 

0010 

B 3 

0000 

B, 

0200 

B, 

@000 

E, 

0000 

B 

10 

1 0000 

B, 

0300 

2, 

0000 

B, 

0000 

B, 

©00© 

B, 

0000 

B 

1 1 

1 2000 

B, 

0010 

E, 

0000 

E, 

0030 

B, 

001 2 

B, 

0000 

B 

12 

1 @000 

E, 

1000 

B j 

0000 

B, 

010© 

B, 

000© 

B, 

0000 

B 

13 

10020 

B, 

2030 

B j? 

0000 

B, 

300© 

B , 

©000 

B, 

©000 

B 

14 

1 0002 

B, 

0001 

B i 

0000 

B, 

DECIMAL 





15 

ICC? 

IFTRUE TIMOR IFEND 

— > 







+ - 

— 

-BIock 
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0 

It KAMIZAKE PATTERN ) 








1 

[DECIMAL 

DATA 

KAMI 3 E 

9 

11 B , 

QUAD 




2 

1 @000 

B, 

0001 

B, 

@000 

E, 







3 

1 0000 

E , 

001 1 

E, 

@00© 

B, 







4 

1 0000 

B, 

0201 

B, 

0000 

E, 







5 

1 0000 

B, 

2000 

B, 

@000 

B, 







S 

1 3301 

B, 

1 100 

B , 

0000 

3, 







7 

13011 

E, 

1110 

B, 

©00© 

B, 







S 

1 3301 

B, 

1100 

E, 

0000 

B, 







9 

j 0000 

B , 

2000 

B , 

©@@0 

B, 







10 

1 0000 

B, 

0201 

B, 

000© 

B i 







11 

1 0000 

B, 

@01 1 

B s 

000 0 

B , 







12 

1 0000 

B, 

0001 

B, 

0000 

B, 







13 

[DECIMAL 

-> 










14 

j 












15 

1 














— 

-B1ock 
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— 







0 

It ROTATED KAMIKAZE 1 

s 







1 

1 DECIMAL 

DATA 

KMKZ1R 4 

B 

, 10 

B, 

QUAD 




2 

1 @000 

E, 

@100 

B, 

0000 

B, 

©0©© 

B f 





3 

1 0000 

B, 

01 10 

B, 

0000 

E, 

0000 

B, 





4 

1 0000 

E, 

2110 

B 9 

©00© 

B , 

0000 

B / 





5 

1 0000 

B, 

200O 

B j 

0©0© 

B , 

000© 

B, 





6 

1 0000 

B, 

1 1 1 0 

3, 


■S3> 

9 

0000 

E, 





7 

1 @301 

B , 

1 1 1 0 1 

TR 

0 0 0 0 

Ei 

0 @ © 0 

B, 





a 

I 30 i 1 

j? 

i ■: 95) 

B .? 

0000 

9 

j5j ^ f^j 

& J? 





3 

J 3301 

E» 

1 1 1 0 

i'A 9 

t 00© 

J? 

© g i g g 

w 

•tu* jr 





1© 

! 000© 

B, 

@221 

T? 

'll fjh 

^ J 

@ !0 0 0 






1 1 

! 0000 

E ! 

@000 

■£* 9 


•&' p 

©99© 

& p 






12]DECIMAL —> 










+---Block 175 


0 

! ( ROTATED KAMIKAZE 2 




1 

!DECIMAL 

DATA 

KMKZ2R 4 

B 

, 10 E 

, QUAD 

2 

I 0010 

B, 

0000 

B , 

0000 

E> 9 

0000 

B, 

3 

i 001 1 

B, 

0000 

B, 

@0©0 

B, 

0000 

B , 

4 

! 0010 

B, 

0000 

B, 

0000 

E / 

0000 

B, 

5 

! 0020 

B, 

0000 

B, 

0000 

B , 

0000 

E, 

6 

j 0021 

B , 

0100 

B > 

0000 

B, 

000© 

B, 

7 

i 001 1 

B , 

1000 

B, 

000© 

Bf 

0000 

B, 

8 

10111 

B / 

1100 

E, 

1 000 

& / 

@000 

B, 

9 

10011 

B, 

1221 

B, 

1 1 00 

B, 

000© 

B, 

10 

13101 

B, 

0000 

B , 

000© 

B, 

000© 

B r 

11 

1 3300 

E, 

<2> © 0 Q 

B , 

0000 

B, 


B, 

12 

1 DECIMAL 

__ y 






13 

1 

1 








14 

1 

1 








15 

1 

1 
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— 
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0 

1 ( ROTATED KAMIKAZE 3 

) 



1 

{DECIMAL 

DATA 

KMKZ3R 4 

B 

/ 10 E 

, QUAD 

2 

11100 

B, 

0000 

B, 

0000 

B, 

0000 

B, 

3 

10110 

B, 

0000 

B, 

0000 

B i 

0000 

B, 

4 

10100 

B, 

0000 

B, 

000© 

B, 

0000 

B, 

5 

10210 

B, 

1101 

B , 

1 @00 

B, 

0000 

B, 

6 

1021 1 

E, 

1101 

B / 

1100 

B f 

0000 

B , 

7 

10011 

B, 

1122 

B, 

0000 

B , 

0000 

3, 

8 

1001 1 

B, 

1 000 

B , 

0000 

E, 

0000 

B, 

9 

10001 

B / 

@000 

B s 

0000 

E, 

000® 

B , 

10 

10030 

B , 

3000 

B, 

@000 

B, 

0000 

B, 

11 

10033 

B, 

0000 

E , 

@@!0 0 

B, 

0000 

B, 

12 

1 DECIMAL 

— > 






13 

1 

1 








14 

1 

1 








15 

1 

1 









+—-— 

— 
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— 



0 

1 ( ROTATED KAMIKAZE 4 

) 



1 

{DECIMAL 

DATA 

KMKZ4R 4 

E 

, 8 B, 

QUAD 

2 

11110 

B , / 

0©00 

B / 

1 1 1© 

B , 

0000 

B , 

3 

1 @100 

B, 

0100 

B , 

0100 

B, 

0000 

B, 

4 

1 0020 

B, 

1110 

B, 


E, 

0000 

B f 

5 

1 @002 

E, 

1112 

B i 

@00® 

ts> 

L) 9 

@00© 

B } 

6 

1 0000 

B, 

1110 

Li 9 

(9l! 

B, 

000© 

B , 

7 

{ 0000 

TCk 

■O 9 

0 1 0 ® 

B 9 

0 ' '? 0 


00.0® 

■ra 

■J3 J 

8 

| ^ ^ 

iR . 



'• ■’> •?; 


@00© 

B , 

S 

} 0000 

3 f 

j' 3 3 0 


C': G 0 ! 0 i 

■w, 

J? 

000© 

g 

10 

l DEC I HAL 

y 







11 ! 
12 1 

13 1 

14 j 

15 l 










0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
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12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 

7 
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9 
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11 
12 

13 

14 
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0 

1 

2 

3 

4 


-Block 178 

C MISSIONS- PLAYER'S 
HEX DATA IDSCORE ASM 

A0 87 15 TONES 5© 1 -2 2 MOVENOISE 120 
4A MASTER 1 4 SA 8 RAMBLE 3 COUNTLIMITS 
83 ABVOLS 19 MCVOLS FLAY QUIET 
: ID IDSCORE EMUS IC J 
DATA 1GSCORE ASM 

2 1 2© MOVESOUND 53 66 75 TONES IF 
4 5 1 01F MOVENOISE 3 MASTER 2A -1 
PLAY FF IF ©8 -1 0 0F MOVEVOLS 1 2 

3 COUNTLIMITS RERAMBLE PLAY QUIET 
— > 


SHIP EXPLOSION, 1G, SHOOTING SOUND, ID ) 


MOVESOUND 


MCVOLS ©FF ABVOLS 
3 2 RAMBLE 2 COUNTLIMITS 
10 MOVESOUND 


SOUNDS- ZP,PZ ) HEX 


10 MASTER 


4F VIES PLAY QUIET 


+-Block 179- 

( MISSIONS- ZPIP 8c PZIP 
DATA PZSCORE ASM 

#G3 #F3 #CS3 TONES 1 -4 3F MOVESOUND 
1 4 A© 1© RAMBLE 1 COUNTLIMITS 
10 1 4 7© MOVENOISE AA ABVOLS 2A MCVOLS 
DATA ZPSCORE ASM 

#G3 #F3 #CS3 TONES 1 -1 3F MOVESOUND © 1 4 30 MOVENOISE 
6© MASTER 1 -4 60 30 RAMBLE 1 COUNTLIMITS AA ABVOLS 1A MCVOLS 
PLAY 2B MASTER 1 -4 2F 5 RAMBLE 1 COUNTLIMITS 
IE 1 -4 6 MOVENOISE PLAY QUIET 
— > 


H-Block 180- 

C SPACE MISSIONS EMUS IC BLOCK ) 
1G 1GSCORE PMUSIC 8 MS 1GSCORE 
PZ PZSCORE EMUS IC J 
ZP ZPSCORE EMUS IC ; 

DECIMAL —> 


P2MUSIC 


6 

7 


■cat s 

• u 

1@ S 
■11 l 
12 ! 
13 S 
1 4 J 
15! 











0 

1 

2 

3 

4 

5 

6 
7 

a 

9 

10 

11 

12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 


■4-B1 ock 181- 

( MISSIONS- TAKE-OFF- TO ) HEX 
DATA TOlSCORE ASM 

7 9 10 TONES 1 5 © MOVESOUND 2 MASTER 3 0A 
1 COUNTLIMITS 3 1 3 73 MOVENOISE 1C MCVOLS 
90 MASTER 3E 44 M TONES 4 -1 90 74 RAMBLE 
1 1 20 MOVESOUND PLAY 74 MASTER 1 -1 74 2 
SB 1 -1 3 MOVENOISE RERAMBLE 1 COUNTLIMITS 
DATA T02SC-0RE ASM 

3 5 14 TONES 1 -5 3F MOVESOUND 2 MASTER 3 

1 COUNTLIMITS 3 1 3 73 MOVENOISE 1C MCVOLS 

2 MASTER 54 31 13 TONES 1 1 22 2 RAMBLE 1 
1 -1 20 MOVESOUND PLAY 22 MASTER 1 1 70 22 
SB 1 -2 3 MOVENOISE RERAMBLE 1 COUNTLIMITS 

: TO T02SC0RE P2KUSIC TOlSCORE PMUSIC } 

— > 

-1 -' — Block 1 S2- 

< MISSIONS- DIVE SOUND ) HEX 

DATA KBSCORE ASM ( no priority for background ) 

1 -4 3F MOVESOUND #G0 #B0 #D4 TONES 77 ABVOLS 7 MCVOLS 4S VIES 

2 MASTER 1 1 5© 2 RAMBLE 1 COUNTLIMITS PLAY 

55 ABVOLS 25 MCVOLS 1 -1 5© 30 RAMBLE HERE 012 3* MOVENOISE 
1 2 0 MOVESOUND 1 COUNTPANS PLAY 3A 1 -2 0 MOVENOISE 
1 COUNTPANS PLAY LDPCC 


90 2 RAMP 
CC ABVOLS PLAY 
1 COUNTLIMITS 
RAMBLE 
PLAY QUIET 

0A 90 2 RAMP 
CC ABVOLS PLAY 
COUNTLIMITS 
RAMBLE 


SUER PLAYKBS KBSCORE 
DECIMAL —> 


LX I, ME2 Y LX IX, femusic JMF 


4-Block 1S3- 

( DRAW FI REBASES ON SCREEN ) 

HEX TABLE FBADDRESSES 200 , 1000 , 1E00 , 2C00 , 
: REDRAWFB FBCOUNTER t IF 
FECOUNTER 0 0 DO 

100 I FBADDRESSES ® SMALEASE 20 WRITER LOOP THEN 
DECIMAL —> 


3A0O 


a i 
9! 
1©! 
11 ' 

12 i 

13 1 

14 1 
1 5 ' 










0 

1 

2 

3 

4 

5 
S 
7 
S 
9 

10 
11 
12 

13 

14 
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0 

1 

2 

3 

4 

5 

6 
7 
S 
9 

10 

11 

12 

13 

14 

15 

0 

1 

2 

3 

4 

5 
S 

7 

8 
S 

1 

11 

12 


-B1 ock 184- 

i GAME VARIABLES AND CONSTANTS ) 

TIMER© C= WTIMER TIMER1 C= BOMBTIMER TIMER2 C= ATTACKTIMER 
TIMER3 C= RACKTIMER 0 V= FI REACT I ON 0 V= SPIRALRATE 
0 V= RACKDONE 0 V= INVADERSLEFT 0 V= PLAYERHIT 0 V= ENDOFFRAME 
0 V= GAMEOVER 0 V= PHASINTR © V= FIRETRACK 0 V= ATT ACKWAI TER 
0 V= SCRPTR 0 V= PV1 2 V= MAXEOMES 4 ARRAY EVLIST 
0 V= FBANIM 0 V= RE I NTT C MUST REINITIALIZE ) 

10 C= NBOMES 6 C= BOMBAS IZE NBOMBS BOMBAS 12E * C= EATOTAL 
BATOTAL BA= BOMEARRAY 
HEX 40 BA= FBVECTOR 

0 V= PINTERFLAG 0 V= PINTERN 0 V= PINTERX 
10 C= CO I NSW 10 C= SW1FG 1 C= SWF I RE 9 C= 

C= INIVUL -200 C= BOMBDX 


0 V= PINTERY 
PLYRINTX 0F C= 
700 C= BOMBDY 


FFXLL 


HEX 

CONCM 


OUTP INITFREELI ST 
0D HORCB OUTP ■, 

P2SCR BCD+! 4900 9G00 


0 C= INIVLL 4200 
200 C= INIDMY 
DECIMAL 
— > 

+-Block 185- 

( INITIALIZE GAME SCREEN ) 

: INITSCREEN DI GRAPHICS 1 
NILVQ FIREUP CL CB VERBL OUTP 
: UPDATESCORE PLAYERUP @ IF 0 
ELSE 0 PI SCR BCD+! 4900 0 408 
: INUPG 4900 0 403 0 P1SCR DISPBCD6 
4D00 0B00 408 A” ONE" COUNT SPOST 
4D00 4800 408 A" MISSION" COUNT SPOST 
49C0 5A00 428 MI5SI0NCTR @ DISPBCD2 REDRAWFE ; 

: INI2PG INI IPG 480© 9600 408 © P2SCR DISPBCD6 
4D00 A100 408 A" TWO “ COUNT SPOST ; 

; DRAWN ISSI ONSCREEN INITSCREEN NPLAYERS ® IF INI2FG 
THEN START j 
DECIMAL —> 


40S 0 
El 


P2SCR 


EL 


INIiPG 


-t-Block 186- 

C RACK UPDATOR ) 

HEX 0 V= INVADERNUM 0 V = MASTERY 0 V= 
0 V= MASTERX 0 V= DMASTERX 0 V= INVLL 
V= LEFT INVN 0 V ~ RIGHTINVN 
V= BUMPMASTERROUTINE 0 V= NORMLP1 0 
BARRAY ALIVEBITS 

BARRAY RACKS ITS DATA BITMASK 1 B, 2 

B, 80 B a SO ATP'*Y ^NIMSTA T E 


0 
0 
8 
8 

40 

S BARRAY 
: RESETRAC 


DMASTERY 
0 V= INVUL 

V= N0RMLP2 


A If? 


B, 




0;INIDMY 


J M &•’ 


F E © 0 D M A s " 
DECIMAL — 


■IT 


V i! 1 " IrJ - ! H £» 

B I & MASTER' 


INVL 


I N I V U L 


O MASTERY 1 


UL 











0 

1 

2 

3 

4 

5 
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12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 

7 

8 
o 

V/ 

10 
1 1 
1 2 

13 

14 

15 


-Block 187- 

( RADIAL LINE GENERATOR ) 
0 C= LTMR 

1 C= LDXL 

2 C= LDXH 

3 C= LXL 

4 C- LXH 

5 C= LDYL 

6 C= LDYH 

7 C= LYL 

8 C= LYH 

9 C= LXRL 

10 C= LXRH 

11 C= LYR 

12 C= LRTMR 

13 C= LPXV 
— > 


C RAD 
14 C= 
LMSIZ 
LASIZ 
© V = 

0 V = 

0 V = 

0 V= 

0 V = 

0 V = 

0 V = 
— > 


) 


-Block 188- 

IAL EFFECT VARIABLES 
LMSIZ 32 C= LACOUNT 
LACGUNT * C= LASIZ 
BA= LARRAY 

LINIT ( INITIALIZE LINE ROUTINE ) 

LQUAD ( QUADRANT COUNTER > 0 V= LRADIAL C ANGLE ) 

XB 0 V= YE ( BIASES ) 

XS 0 V= YS 0 V= XF © V= YF < LINE ENDPOINTS ) 

SFBX 0 V= SFFX 0 V = SFBY 0 V= SFFY ( SCALE FACTORS ) 
XLP 0 V= XLM 0 V= YLP © V= YLM ( LIMIT FACTORS ) 

SVCX © V= SVCY 


---Block 189- 

< NEAT SUBROUTINES ) 

SUER SINE A E MOV, 0 D MVI, 0 sin-table H LXI, D DAD, 

M E MOV, RET, 

SUBR COSINE A E MOV, S3 A MVI, E SUB, A E MOV, @ D MVI 
0 sin-table H LXI, D DAD, M E MOV, RET, 

< UNSIGNED MULTIPLY ) 

F= MNOSW F = MMPL F= NOADD 

SUBR UMPY < ASSEMBLE H A MOV, A ANA, MNOSW JRZ, XCHG, 
LABEL MNOSW L A MOV, © H LXI, 
j LABEL MMPL FAR, NOADD JRNC, D DAD, 

1 LABEL NOADD XCHG , H SAD, XCHG, A ANA, MMPL JRN2, PET, 

I ASSEMBLE > 

I SUBR COMHL A MOV, CM A, A H MOV, L A MOV, 
l H I NX, RET, 


rwA 

vi ss-ni £ 


A L MOV, 
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S 


+--Block 130- 

< SUBR TO WRITE NEXT PIXEL IN A LINE ) 

HEX F= TMR2 F= RT2 
SUBR STEPLINE <ASSEMBLE 

LTMR X A LDX, A ANA, TMRZ JRZ, A DCR, A LTMR X STX, 

LDXL X E LDX, LDXH X D LDX, LXL X L LDX, LXH X H LDX, D DAD, 

L LXL X STX, H LXH X STX, XCHG, 

LDYL X C LDX, LDYM X B LDX, LYL X L LDX, LYH X H LDX, B DAD, 

L LYL X STX, H LYH X STX, 

20 C MV I, re labs CALL, C A MOV, DI, MAGIC OUT, 0C0 M MVI, El, 
RET, LABEL TMR2 LRTMR X A LDX, A ANA, RT2 JRZ, 

A LTMR X STX, 0 LRTMR X MVIX, 

LXRL X L LDX, LXRH X H LDX, L LXL X STX, H LXH X STX, 

LYR X A LDX, A LYH X STX, 0 LYL X MVIX, RET, 

LABEL RTZ LI NIT LHLB, PCHL, 

ASSEMBLE > 

DECIMAL —> 

-g 1 ock 131- 

( OTHER NEAT VERBS ) 

: LST ART LINIT ! LAS 12 0 DO 0 I LARRAY E! LOOP ; 

F = UPAL 

CODE UPDATEALL <ASSEMBLE X PUSHX, Y PUSHX, EXX, LACOUNT E LXI 
0 LARRAY X LX IX, 

LABEL UPAL B PUSH, STEPLINE CALL, 

LMSI2 D LXI, B DADX, 

B POP, B DCX, C A MOV, B ORA, UPAL JRNZ, 

EXX, Y POPX, X POPX, NEXT ASSEMBLE > 

— > 


+-Block 132- 

( GENERATE A LINE ) 

HEX F= DOY F= OKX 

SUER GENLINE < ASSEMBLE random CALL, L A MOV, 3 ANI, LGUAD STA 
D A MOV, 3F ANI, LRADIAL STA, 

C X START ) 

SINE CALL, SFBX LHLD, UMFY CALL, H A MOV, XS STA, 

< X END ) 

LRADIAL LDA, SINE CALL, SFFX LHLD, UMFY CALL, 


9 ! ( Y START ) 

10 ILRADIAL LDA, COSl^ 

11 IH A MOV, Y3 STA, 

12!< Y END ) 

13: LRADIAL LDA, COS IN* 
14 | H A MOV , Yr STA, 

15 ! — > 


CALL, SFBY LHLD- 


CALL, 


CALL. 


■Y LHLD. 
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H-Block 193- 

C LINE GENERATOR - CLIP 
LQUAD LDA, 2 AM I, 0=, I 
A C MOV, XF LDA, C CMP, 
B PUSH, YS LDED, YF LDA 
XF LDA, C SUB, A L MOV, 
XS LDED, XF LDA, E SUB, 
YF LDA, E SUE, YF STA, 

( Y STUFF ) 

LABEL DOY LQUAD LDA, A 
ELSE, YLP LDA, THEN, A 
B PUSH, XS LDED, XF LDA 
YF LDA, C SUB, A L MOV, 
YS LDED, YF LDA, E SUB, 
XF LDA, E SUB, XF STA, 
— > 


CHECK ) 

F, XLM LDA, ELSE, XLF LDA, THEN, 

DOY JRC, < JUMP IF OK > 

, E SUE, A E MOV, 

0 H MV I, H D MOV, UMPY CALL, 

A E MOV, © D MVI, UNSDIV CALL, 

B POP, C A MOV, XF STA, 

INR, 3 ANI, 2 CPI, CY, IF, YLM LDA, 


C MOV, YF LDA, C CMP, OKX 


, i,E? 


c. 


, E SUB, A E MOV, 

0 H MVI, UMPY CALL, 

A E MOV, © D MVI, UNSDIV CALL, 
E POP, C A MOV, YF STA, 


-Block 194- 

< LINE GENERATOR - SET DELTAS ) 

LABEL OKX XS LDED, XF LDA, E SUB, A C MOV, YS LDED, YF LDA, 
E SUB, A B MOV, C CMP, CY, IF, < X IS LARGER > 


C LRTMR X STX, C LTMR X STX, 
B H MOV, 0 L MVI, C E MOV, L 
E LDYL X STX, D LDYH X STX, 
ELSE, < Y IS LARGER ) 

B LRTMR X STX, E LTMR X STX, 
1 LDYH X 
H A MOV, 

E LDXL X 


40 LDXL X MV IX, 0 LDXH X MVIX. 
D MOV, UNSDIV CALL, 


X MVIX, 


© LDYL 

MVIX, C A MOV, RRC, RRC, A H MOV, 0C0 ANI, 

3F ANI, A N MOV, B E MOV, 0 D MVI, UNSDIV CALL, 
STX, D LDXH X STX, 


A L MOV, 


THEN, 

— > 


+-B1 ock 


195- 


< ADJUST DELTAS TO QUADRANT, AND BIAS TO EFFECT CENTER 
XS LDA, RRC, RRC, A D MOV, 0C0 ANI, A E MOV, D A MOV, 
3F ANI, A D MOV, XE LHLD, 

LQUAD LDA, 

2 ANI, 0< >, IF, A ANA, D DSBC, XCHG, LDXL X L LEX, 


5 

!LDXH X H LDX, 

CQMHL 

CALL, L LDXL 

X STX, 

in LDXH X STX, 


S 

!XCHG, ELSE, D 

DAD * 





7 

!THEN, L LXL X 

STX 

H LXH X STX, 

L LXRL 

X STX, H LXEH X S T 

X, 

n 

O 

SYS LDA, A 0 MS 

0 V * $ 

~ V VI, YF LML 

iU Jh 



3 

• LQUAD LDA* A 

j ijp ■'P 

AM I, 2 CPI, 

Am IF 

, A ANA, D D3BC, 


10 

S XCHG, LDYL X 

L. L D X i 

LDYH X !H LDX 

, CQMHL 

CALL, 


1 1 

!L LDYL X STX, 

h LDY 

X STX, XCHG 

» 



12 

[ELSE, D DAD, 

THEN ? 





13 

I© LYL X MVIX, 

H L YIH 

X STX, V LYR 

X six. 



14 

[RET, ASSEMBLE 

\ ^ j^jQP 

O 





15 i DEC I MAI 
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+-Block 196- 

( WRITE ONLY ENTRY AND SET CENTER OF LINE EFFECT ) 

SUBR WRTONLY GENLINE CALL, 0 LRTMR X MVIX, RET, 

: SETLXY 2DUP YB ! XB ! 

256 / DUP YLP ! 192 SWAP - YLM ! 

64 / DUP DUP 255 > IF DROP 255 THEN XLP ! 

292 SWAP - DUP 255 > IF DROP 255 THEN XLM ! ; 

: SETSF SFFY ! SFFX ! SFBY 1 SFBX ! ; 

DECIMAL —> 


-Block 197- 

C SHIFT RIGHT ARITHMETIC BY N ROUTINE ) 

C ENTER AT SRHLC TO CHECK FOR 0 S.A. ) 

F= SRHL F— SA2 

SUBR SRHLC <ASSEMBLE B A MOV, A ANA, SA2 UR2, 
LABEL SRHL H SRAR, L RARR, SRHL DJN2, RET, 

C 2ER0 OUT HL ) 

LABEL SA2 A L MOV, A H MOV, RET, ASSEMBLE> 

— > 


-I-Block 198-■ 

( SPIRAL VECTOR ROUTINE ) 

HEX F= SOF SUBR VSPIRAL <ASSEMBLE 

VDYL X L LDX, VDYH X H LDX, VDDXL X B LDX, SRHL CALL, 
XCHG, VDXL X L LDX, VDXH X H LDX, A ANA, D DSBC, 

L E MOV, H D MOV, VDDXH X B LDX, SRHLC CALL, D DAD, 

L VDXL X STX, H VDXH X STX, SVCX LBCD, B DAD, 


VDDYL X E LDX 
SVDYL X E LDX, 

[L E MOV, h Z 
! D DAE', L v D 7 L 
17 VI DENT X BJ 
i SVCY LBCD, B DAD, 
\L VYL X STX, U VY'■ 
1 LABEL SOF PQSRH PC 
! DECIMAL — > 


J 

, SRHL CALL, 

VDYH X D LDX, 

MOV ff VDDY.H X B LEV 
X STX , H VDYH X.J 
IX 9 §< >, IF * COM HI 


30 J)AD, 


BRH 


C'&S I 


u 


A ■ f4 0 V 




cP 1 


Qsm 


X_L, 

:m , 

JRNC, 


ASSEMBLE> 
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-Block 199- 

< INTERRUPT ROUTINE TO SPIRAL VECTOR ) 

F— SPIL 

SUBR SPWRITE <ASSEMBLE TECALC CALL, SPIRALRATE LDA, 

LABEL SPIL PSW PUSH, VSPIRAL CALL, PSW POP, A DCR, SPIL JRNZ, 
PQSDE PQS X BITX, 0=, IF, verase CALL, ELSE, 

PQSDE PQS X RESX, THEN, 
aup CALL, 

PQSDW PQS X BITX, 0=, IF, VIWRITE CALL, THEN, 

KILLOFF JMP, ASSEMBLE > 

DECIMAL —> 


-Block 200- 

C SUBROUTINES TO CALCULATE DISPLACEMENTS FOR RACK MEMBER ) HEX 
SUBR CALCINVX 7 AN I, RLC, RLC, A H MOV, 0 L MV1, RET, 

SUBR CALCINVY 38 ANI, RLC, A H MOV, © L MVI, RET, 

( CHECK FOR SCREEN EDGE, NEGATE DELTA AND BUMP X IF AT IT ) 
SUBR FLIPCHECK H A MOV, B CMP, RNZ, L A MOV, C CMP, RNZ, 

D A MOV, CMA j A D MOV, E A MOV, CMA, A E MOV, D I NX, A XRA, 
RET, 

C INDEX RACK BITS AND ALIVE BITS ) 

SUER XRACKBITS C A MOV, 7 ANI, A E MOV, © D MVI, 

BITMASK H LX I, D DAD, M B MOV, C A MOV, RRC, RRC, 

RRC, 7 ANI, A E MOV, © RACKBITS H LX1, D DAD, 

M A MOV, B ANA, RET, 

SUBR XALIVEB1TS C A MOV, 7 ANI, A E MOV, © D MVI, 

BITMASK H LX I, D DAD, M B MOV, C A MOV, RRC, RRC, RRC, 7 ANI, 

A E MOV, © ALIVEEITS H LX I, D DAD, M A MOV, E ANA, RET, 

— > 

-Block 201- 

C WAIT AND ANIMATION TRACKING TABLE ROUTINES ) HEX 
: WAIT WTIMER ! BEGIN WTIMER @ 0= END ,' 

SUBR NOTEANIM INVADERNUM LDA, RLC, 

RLC, A E MOV, 0 D MVI, © AN I MSIATE H LX I, D DAD, XCHG, 

MASTERY LHLD, DMASTERY LBCD, 7 B BIT, ©=, IF, E DAD, THEN, 
XCHG, DI, E M MOV, H I NX, D H MOV, H I NX, MASTERX LDED, 

E M MOV, H I NX, D M MOV, El, RET, 


j 1 "Lv jf i\L w jf 

, D DAD, M E MOV, 


i © AM INSTATE H LX I 
! H PUSH, C A MOV, CALCINVY CALL, 
| 1 H BIT, NOR$*»LPi LHLD- @< >, IF, 


C A MOV. 


m f: 


i M 


fl t H 0 V , 
|C A MOV, 

j XCHG, H 
f — v 


MOV, 
D PUi 

U " V: 


H INK 
3 DAD, D 
I© B LX" 
D MVI , D 

v- p q o v; 

M rs 


, M S MOV, H a NX, 

POP, H PUSH, D PUSH, 

, D DAD, "HEN, 

DAD, 

COL CI NV X C A LL, D DAD j 
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H—-Block 202- 

( RECOMPUTE LIMITS ) HEX 

F= LLFL F= LLFND F= ULFL F= ULFND 

SUBR RELMT <ASSEMBLE INVADERSLEFT LDA, A ANA, 

INIVLL H LX I, 0 ALIVEBITS D LXI, 800 B LXI, 

D LDAX, A ANA, LLFND JRN2, H A MOV, 10 SUI, 

1 NX, C A MOV, a ADI, A C MOV, LLFL DJN2, RET, 

LABEL LLFND INVLL SHLD, 7 ALIVEBITS D LXI, INIVUL H LXI, 

C A MOV, LEFT INVN STA, 38 C MV I, 

LABEL ULFL D LDAX, A ANA, ULFND JRN2, H A MOV, 10 ADI, 

A H MOV, D DCX, C A MOV, 8 SUI, A C MOV, ULFL JHFR, 

LABEL ULFND INVUL SHLD, C A MOV, RIGHT INVN STA, RET, ASSEMBLE> 
DECIMAL 


RZ, 

LABEL LLFL 
A H MOV, D 


+-Block 203- 

C SUBR TO STEP MASTER COORDS ONE TICK AND LIMIT CHECK ) HEX 
< ROUTINE TO WRITE ONE INVADER, IF POSSIBLE ) 

F= INVFIND F= STEPMASTER F= NONERD 
SUBR WRITE INVADER <ASSEMBLE 

INVADERNUM LDA, A C MOV, XALIVEBITS CALL, NONERD UR2, 

DI, XRACKBITS CALL, INVFIND UNZ, NOTEANIM CALL, El, 

LABEL NONERD INVADERNUM LDA, A I NR, 3F AN I, INVADERNUM STA, 
WRITEINVADER JRN2, 

LABEL STEPMASTER BUMPMASTERROUTINE LHLD, PCHL, 


10 
11 
12 

13 

14 

15 


-g 1 ock 

( WE FOUND AN 
LABEL INVFIND 


204- 

INVADER - 


WRITE HIM > 


D DAD, XCHG, INVADERNUM 
© B MV I, INVPATAB LHLD, 
B PUSH, XT IY, 20 B LXI, 


INVADERNUM LDA, CALCINVY CALL, MASTERY 

OV, 

M B MO 
H L B X , 


LDA, 7 AN I, RLC, A C 
E DAD, M C MOV, H I NX 
1 D BIT, 0<>, IF, 1 Y 
C MV I, THEN, B PUSH, 

INVADERNUM LDA, 

CALCINVX CALL, MASTER* LBCD, B DAD, XCHG, B POP, pels 
DI , Hritep CALL, X V 7EANIM CALL, Y P0PX, INVADERNUM LD 
9 I A I NR , 3F AN S-* I >!VAD^NUM STA . STFPM asTFP - 5 
10(ASSEMBLE> 

11jCODE WRTINV RACKT*XZ 

12! WRITEINVADER CALL # X POFX, 3 POP, “'HEN, NEXT 


LDED , 

V , 

H DCR, 


E A 

NIM CALL, Y 

POPX, I 

nr nr 

k U ; v j 3 j A , S S 

EPMASTER 

cr 

LDA, A ANA, 

0=, IF, 

O 

OPX, 3 POP, 

"HEN, N 


bs CALL, 


y ■ !| Y^ f »y 


13', DECIMAL — > 

14 1 

15 I 











-B1 ock 


© 

1 

2 

3 

4 

5 

e 

7 

8 
3 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 
G 

7 

8 
3 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 
G 


A RACK 


205- 

MEMBER 


C REWRITE 
HEX 

C USED FOR GAME 
F = TOGGLEMEMEER 
SUBR REWRITEMEMEER 
LABEL TOGGLEMEMEER 
GETASTATE CALL, 

20 B LX I, relabs CALL, 
ASSEMBLE> 

CODE REWRITER 
REWRITEMEMBER 
DECIMAL —> 


USING NORMAL PATTERNS > 


INITIALIZATION ) 


<ASSEMBLE XRACKBITS CALL, RZ, 


D I 


wri+ep CALL, El, RET, 


H POP, I 
CALL, Y 


PUSH, Y PUSHX, L C MOV, 
POPX, E POP, NEXT 


206- 

HEX 


——-B1 ock 

( REENTER RACK ) 

SUBR PLOTREENTRY 
VRACK X C LDX, GETASTATE 
0 B MV I, H VYH X STX, 

28 VXZW X MV IX, 

XCHG, VXL X A LDX, 0C0 AN I, 
VXH X D LDX, A ANA, D D3EC, 
0< >, IF, H A MOV, A ANA, 0< 


CALL, 


THEN, D DAD, L VXL 
B A MOV, A ANA, 0= 
Y PUSHX, H POP, L 
PQSRH PQS X RESX, 
B A MOV, M ORA, A 
THEN, RET, 


. X STX, H 
; IF, 
VPATL X S' 
VRACK X C 
M MOV, 20 


A E MOV, 

, IF, -40 H 
VXH X STX, 


LX I, ELSE, 40 
B I NR, THEN, 


H 


X, H VPATH X STX, 
LDX, XRACKBITS CAL 
VMAGIC X MV IX, 


-B1ock 207- 

( INTERRUPT ROUTINE TO REENTER A GALAXIAN 
F= ROGER 

SUBR RENTGAL <ASSEMBLE 
TBCALC CALL, E PUSH, 

PQSDE PQS X BITX, 0=, IF, verase CALL, ELSE, 
aup CALL, B POP, 


THEN, 

PQSRH 


PQS X BITX. 


&}( 


IF, 


7 

1 LABEL 

ROGER 

B PUSH, P 

LOTREENTRY CALL, B POP, 

8 

! PQSRH 

PQS X 

BITX, 0< > 

, IF, C OCR, ROGER JRN2 

3 

1 THEN, 

PQSDW 

PQS X FI~ 

X, 0=, IF, vwrite CALL, 

1® 

! PQSRH 

P ft 5? X 

P < — w . 

, IF, PQSDW PQS X RESX, 

11 

! PQSDE 

PQS X 

SE7X, THE 

H, THEM, 

12 

! KILLOF 

’F JMP 

, AS3EMBLE 

\ 

1 3 

1 — > 





) DECIMAL 


PQSDE PQS 


THEN, 

r' c- — 


LX I , 


X RESX, 










+-Block 208- 

i< CHECK FOR INTERCEPT WITH RACK MEMBER ) 

I< RETURNS N2, C=INVADERNUM IF DETECTED, ELSE 2 > 

!F= NORKI 

!HEX SUER RACKCHECK <ASSEMBLE 
iVXL X L LDX, VXH X H LDX, H INR, H INR, 

!MASTERX LDED, A ANA, D DSBC, H A MOV, A ANA, NORKI JM, 
!RRC, RRC, 7 ANI, A C MOV, VYL X L LDX, VYH X H LDX, 
IMASTERY LDED, A ANA, D DSBC, H A MOV, 2 ADI, RRC, 

138 ANI, C ORA, A C MOV, XRACKBITS CALL, RET, 

!LABEL NORKI A XRft, RET, 

SASSEMBLE> 
iDEC IMAL —> 


+-Block 203- 

i ( ANIMATION LIST AND ROUTINE TO EXPLODE THE FIREBASE ) 

!HEX DATA FBEXPSUE ASM 0 0 SETDC 

!4 6 DISPL FBEXP1 SETP 08 SWAIT A0 SETM 08 SWAIT 

120 SETM -4 -6 DISPL FBEXP4 SETP 08 SWAIT A0 SETM @8 SWAIT 

120 SETM 1 2 DISPL FBEXP2 SETP 08 SWAIT A0 SETM 08 SWAIT 

120 SETM -1 -2 DISPL FBEXF3 SETP 8 SWAIT A0 SETM 8 SWAIT 20 SETM 

! ARET 

iDAT A FBEXP ASM FEEXPSUE ACALL FBEXP5 SETP 8 SWAIT A0 SETM 8 
!SWA IT 20 SETM FEEXPS SETP 8 SWAIT A0 SETM 8 SWAIT NULPAT SETP 
11 SWAIT AHALT 

|( ROUTINE TO EFFECT THE EXPLOSION ) 

1SUBR EXPLODEFB PLAYERHIT LDA, A ANA, 0=, IF, 

11 A MVI, PLAYERHIT STA, FBEXP H LXI, 

1CRASHA CALL, XAWRITE H LXI, L PQRL X STX, H PORH X STX, THEN, 

1 RET, DECIMAL —> 


-Block 210- 

C SCORIN ) HEX TABLE ASTBL 60 , 60 , 80 , 100 , 300 , 200 , 

150 , 250 , 

DECIMAL DATA EXP I SUB ASM EXPLOSION1 SETP 5 SWAIT EXPLOS10N2 
SETP 5 SWAIT EXPLOS10X3 SETP 5 SWAIT EXPLOS10N4 SETP 5 SWAIT 
EXPLOSIONS SETP 5 SWAIT NULPAT SETP ARET 
DATA EXP I MV ASM EXP I SUB ACALL AHALT 

DATA EXPNS ASM EXP ISUB ACALL NUMWRITE SETR 1 SWAI T ARET 

DATA EXPNF ASM I SWAIT HEX EF 40 SETS 1C SWAIT BF 0 5F T S AHALT 

DECIMAL —> 
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-B1 ock 211--- 

C MORE SCORING GOODIES ) 

DATA SCR60 ASM EXPNS ACALL 0 ASTBL SETP EXPNF AJMP 

DATA SCR80 ASM EXPNS ACALL 2 ASTBL SETP EXPNF AJMP 

DATA 5CR100 ASM EXPNS ACALL 3 ASTBL SETP EXPNF AJMP 

DATA SCR300 ASM EXPNS ACALL 4 ASTBL SETP EXPNF AJMP 

DATA SCR200 ASM EXPNS ACALL 5 ASTBL SETP EXPNF AJMP 

DATA SCR150 ASM EXPNS ACALL G ASTBL SETP EXPNF AJMP 

HEX DATA EXPTHEGORF ASM FBEXPSUB ACALL FBEXP5 SETP 40 SWA IT 

A0 SETM 40 SWA IT 20 SETM FBEXP6 SETP 40 SWAIT A0 SETH 40 SWAIT 

20 SETM NULPAT SETP NUMWRITE SETR 1 SWAIT 7 ASTBL SETP 

EXPNF AJMP 

DATA ATTACKEXPTBL SCR60 , SCR6© , SCRS0 , SCR100 , SCR300 , 
SCR200 , SCR150 , EXPTHEGORF , DECIMAL —> 


-Block 212- 

( BACKGROUND PHASOR INTERCEPT PROCESSING ROUTINES ) 
i ROUTINE TO EXPLODE AN INVADER ) 

HEX SUBR PINTERPROC A DCR, 0=, IF, PINTERN LDA, 7 AN I, RLC, 

A C MOV, 0 B MV I, ATT ACKEXPTBL H LX I, B DAD, M C MOV, H I NX, 

M B MOV, FINTERX LDED, PINTERY LHLD, 

ELSE, PINTERN LDA, A C MOV, 

DI, XRACKBITS CALL, N XRA, A M MOV, XALIVEBITS CALL, M XRA, 

A M MOV, El, B PUSH, TOGGLEMEMBER CALL, B POP, GETASTATE CALL, 
EXP INV B LX I, THEN, D PUSH, H PUSH, B PUSH, 

PINTERN LBCD, B PUSH, £ C BIT, 0=, IF, INVADERSLEFT H LXI, 

M DCR, THEN, ©A2 B LX I, E PUSH, XYVST ART JMP, 

< ROUTINE TO CHECK FOR INTERCEPT ) 

SUBR PINTERCHECK PINTERFLAG LDA, A ANA, R2, PINTERPROC CALL, 
RELMT CALL, 

PINTERFLAG LDED, PINTERN LHLD, A XRA, P INTERFLAG ST ft, A I NR, 

RET, DECIMAL —> 

-Block 213- 

C ROUTINE TO CALL FROM SCAN LOOP ) 

CODE PIFCHECK X PUSHX, Y PUSHX, EXX, PINTERCHECK CALL, 

Y POPX, X POPX, ©< >, IF, H PUSH, D PUSH, 1 H LX I, ELSE, 

0 H LX I, THEN, H PUSH, EXX, NEXT 

HEX : PHASOR INTERCEPTCHECK PIFCHECK IF 1 = IF 7 AND ASTBL t ZP 
ELSE DROP 50 PZ THEM 
UPDATESCORE THEN ; 

DECIMAL —> 
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H--——Block 214— — —- 

( ANIMATION SUBR TO INITIALIZE THE FIRE BASE ) 

( NEEDS INTERCEPT AND LIMITS SET BEFORE CALL ) 
HEX DATA PLAYERANIM ASM JOYWRITE SETR 5700 SETYC 
20 100 SETDC 

FOREVER FIREBASE SETP 78 SNA IT EVERFOR 
C ROUTINE TO ACTIVATE THE FIREBASE ) 

: ACTFE FBANIM @ 0 0E2 0 FBVECTOR XVSTART ; 
DECIMAL —> 


0600 SETXC 


+ -Block 215- 

C EXPLODE THE FINAL FIREBASE SOMEWHAT MORE SFECTACULAR ) 
HEX 

( 0D , 13 ARE VXL AND VYL ) 

: KI L.LLAST WRT ONLY LIMIT ! @D FBVECT OR 0 200 + 

13 FBVECTOR @ 60© + SETLXY 
2 2 28 28 SETSF DI UPDATEALL El 
0C0 0 DO UPDATEALL BMS LOOP ; 

DECIMAL —> 


®= 


H-Block 216- 

C CHECK FOR PLAYER HIT ) 

HEX 

: PWAIT WTIMER ! BEGIN EMS PHASORINTERCEPTCHECK WTIMER 
END ; 

: PL.AYERH ITCHECK PLAYERHIT 0 IF 1G 
FBCOUNTER § 0= IF PHASORINTERCEPTCHECK 
KILLLAST SHUTUP 

1 GAMEOVER ! 1 ENDOFFRAME ! 

ELSE 37 PWAIT REINIT 0 DOIT FBCOUNTER t 1 - DUP 
FBCOUNTER • 

| DI FBADDRESSES 0 100 SWAP 5TA*»EASE 2@ WRITER 
IPLAYERHIT ZERO El 

! INVADERSLEFT 0 I" 40 OT“ACi<TI TIP ACT~B ELSE 1 ENDOFFRAME ! 

? THEN THEN ELSE INVADERSLEFT 0 0 = IF to 30 PWAIT 1 Etdctp-raTE 

!THEN THEN j 
‘DECIMAL —> 
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+-Block 217- 

( COMMON INITIALIZATION GOODIES ) 

CODE NULCODE NEXT 

: REPAINTRACK 64 0 DO I REWRITER LOOP j 
HEX 

: INITMISSIONRAM XDI GRAPHICS 

0 1STCLRADDR CLRSIZE FILL TIMER© ZERO TIMER1 ZERO TIMER2 ZERO 
TIMER3 ZERO UNFRIOR 1 MUSICFLAG B! 

' SHUTUF REINIT ! NULRET FI REACT I ON ! ; 

: STARTGAME 0 PI SCR ZERO 1 P1SCR ZERO 0 P2SCR ZERO 1 P2SCR ZERO 
2800 MUTHAX ! 6400 MUTHAY ! 1 MISSIONCTR ! 

1 FBCOUNTER ! PLAYERUP ZERO NPLAYERS ZERO SHUTUP 
SKILLFACTOR ZERO ; 

DECIMAL —> 


-Block 218- 

( SPECIAL ROUTINE TO MOVE PHASOR BLAST ) 

( SUBROUTINE TO XAWRITE WITH INTERCEPT CHECKING ) 
HEX F= PHL 

SUBR PHWRITE <ASSEMBLE PGTE X C LDX, © PGTB X MVIX, 
LABEL PHL B PUSH, VXH X A LDX, A I NR, A VXH X STX, 
48 CPI, CY~, IF, PQSRH PQS X RESX, THEN, 

PQSDE PQS X BITX, ©=, IF, verase CALL, ELSE, 

PQSDE PQS X RESX, THEN, PQSRH PGS X BITX, @< >, IF, 
VIWRITE CALL, THEN, 


0< >, IF, C DCR, PHL URNZ 


B POP, PQSRH PQS X BITX; 
THEN, KILLOFF JMP, 
ASSEMBLE > 

DECIMAL —> 


-Block 219- 

C START OR RESTART THE PHASOR MOVING ) 

SUBR DOFIREACT C M MOV, FI REACT I ON LHLD, FCHL, 

HEX SUBR SETPXY 

0 FBVECTOR Y LXIX, VXL Y L LDX, VXH Y H LDX, 500 D LX I, 

D DAD, L VXL X STX, H VXH X STX, VYL Y L LDX, VYH Y H LDX, 
700 D LX I, D DAD, L VYL X STX, H VYH X STX, 60 VATMR X MVIX, 

RET, 

SUER SHOOTPHASOR DOFIREACT CALL, 

CLRVEC CAL'_« SE T PX Y CALL, OSS ■ °QS X MVIX a 
120 VMAG 1C X MVIX, 30 VX2M X XVIX, PHWRITE H LX I, 

IL PGRL X STX, H RQRH X STX, FKASIXTR LHLD, L VIRL X STX, 

» S_j y X 5 ”Y 

ip BURS I H LX I, _ VPATL X STX, !-' VPATH X STX, 1 VDXH X MVIX, 

1STARTVEC CALL, TFT, 

a ^jjBR RERHOQTFH^GR i * SETPXY C ! •> 

i DECIMAL —> 
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-1 —_—Block 220- 

( CHECK FIRE SWITCH ) 

F= FIREBUT 

SUBR FIRESWCK <ASSEMBLE 

FIRETRACK H LXI, JOYSTICK IN, A C MOV, M XRA, SWF IRE AN I, 
RZ, C A MOV, SWF I RE ANI, FIREBUT JRZ, C M MOV, RET, 

LABEL FIREBUT FV1 LIXD, DI, PQ3RH PQS X BITX, 0<>, IF, 

< KICKOUT IF PHASOR EXPLOSION IN PROGRESS > 

PQSFRZ PQS X BITX, RNZ, RESHOOTPHASOR CALL, 

ELSE, PQS X A LDX, A ANA, RNZ, SHOOTPHASOR CALL, THEN, 

El, IDSCORE H LXI, 0 MUSIC-BARRAY-l Y LXIX, bmusic JMP, 
ASSEMBLE > 

HEX SUER FSLITE A XRA, PV1 LIXD, PQSRH PQS X 
A I NR, THEN, 2G OUT, RET, 

PUSHX, EXX, FSLITE 


10 
1 1 
1 2 

13 

14 

15 


BITX, ©=, IF, 


X PUSHX, 
El, EXX, 


CODE FIRECHECK 
FIRESWCK CALL, 

DECIMAL —> 

-BIock 221 — 

C AWAIT THE ARRIVAL OF 
HEX 

F = WVIL 

CODE WVI <ASSEMBLE 

DI, 11 A MV I, INMOD OUT, 

VERAF IN, A E MOV, 

LABEL WVIL VERAF IN, 

0E0 CPI, WVIL JNC, 

8 A MV I, INMOD OUT, 

NEXT ASSEMBLE> 

DECIMAL —> 


CALL, 


POPX, X POPX, NEXT 


THE VERTICAL INTERVAL ) 


E CMP, WVIL JZ, 0D@ CPI, WVIL JC, 


+-Block 222- 

C NEW COLOR ROUTINES ) 

HEX S EA= COLTBL 0 V= TARGETCT 

CODE MAKECOLS EXX, B POP, 0 COLTBL H LXI, TARGETCT LDED, 

S B MV I, BEGIN, D LDAX, F8 ANI, C ORA, A M MOV, H I NX, 

D I NX, LOOP, EXX, NEXT 

CODE APPROACHL EXX, E POP, 0 COLTBL H LXI, 0 E MV I, S E MVI 


ELSE 

A M 0 v , A A N A , & - 


" NX , 


C A MOV, A ANA, 

THEN, K I AX, LOOP, 0 H LXI, 

THEN, H PUSH, EXX, NEXT 

CODE APPROACHC EXX. 9 COLTBL H LXI, TARGETCT LDED, 800 B LX 
I BEGIN, B LDAX, A CMP, 0<>, IF, CY, IF, M BCR, ELSE, M I NR, 

_OOP, 

-] I AX, THEN, H PUSH, EXX, 

l DECIMAL —> 


i THEN, C I NR, THEN, H I NX, D 1 NX 
|0 H LXI, C A NOV, ft ANA, 0=, IF 


I , 

NEXT 
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+-Block 223- 

i< FADE UP/DOWN ROUTINES ) 

!0 V= CWTMR 

! : DC 0 COLTBL WVI COLOR El ,* 

i: CWAIT CWTMR « PWAIT } : SCT CWTMR ! J 

! : STC TARGETCT ! ; 

! : SC STC S 0 BO I TARGETCT * + Bt I COLTBL Bl LOOP DC J 
i: FUC STC SCT 0 FLOOD 3 STARZ OUTP CWAIT 0 MAKECOLS DC CWAIT 
!BEG IN APPROACHC DC CWAIT END ; 

i: FDB SCT BEGIN 0 APPEOACHL DC CWAIT END 0 WVI FLOOD 
!0 STARZ OUTP El ; 

(DECIMAL —> 


1-Elock 224- 

< FORCE FIELD DRAWER ) DECIMAL 
TI MERE C= FFTIMER 0 V= DDXC 

192 BARRAY FIELDADR 0 V= DXC 0 V= XC 0 V= FFLAG 0 V= FFBIAS 
; INITFF DDXC ! 0 DXC ! 25G©0 XC ! 0 36 DO 
DXC @ DDXC @ + DUP DXC \ 

XC @ + DUP XC ! 256 / DUP I FIELDADR B! 131 I - FIELDADR B! 

-1 +LOOP © FFLAG ! } 

HEX F = FFLOOP SUBR FIELDRAW <ASSEMBLE 

FFBIAS LHLD, C0 B MV I, H PUSH, 0 FIELDADR H LX I , 

LABEL FFLOOP M A MOV, A ANA, XTHL, ©< >, IF, AC MOV, 

3 AN I, 20 OR I, MAGIC OUT, C A MOV, XCHG, RRC, RRC, 3F AN I, 

A L MOV, 0 H MV I, D DAD, FF M MVI, H INX, @ M MVI, XCHG, THEN, 
50 D LX I, D DAD, XTHL, H INX, FFLOOP DJNZ, H POP, RET, 

ASSEMBLE > 

CODE DRAWFI ELD EXX, DI, FIELDRAW CALL, El, EXX, NEXT 
DECIMAL —> 

-Block 225- 

( MORE FORCE FIELD GOODIES ) 

DECIMAL 

: DRAWFF FFLAG @ 0 = IF FFTIMER 00= IF 1 DI FFLAG ! 

DRAWFI ELD El THEN THEN } 

: ERASEFF FFLAG * IF 0 DI FFLAG ! DRAWFI ELD El THEN ; 

DECIMAL —> 
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+————————B1oek 226———————— 

( CHECK FOR INTERCEPT WITH ANY OF THE ATTACKERS ) 

F= CNH 

SUBR CKATRS <ASSEMBLE PINTERFLAG LDA, A ANA, CNH JRNZ, 
1 C MV I, CHECKALL CALL, CNH JRZ, 

PG5RH PQS Y RESX, PQSDW PGS Y SETX, 

VYL Y L LDX, VYH Y H LDX, PINTERY SHLD, 

VXL Y L LDX, VXH Y H LDX, PINTERX SHLD, 

VRACK Y A LDX, PINTERN STA, 

6 A BIT, 0=, IF, A C MOV, XALIVEBITS CALL, M XRA, 

A M MOV, THEN, 1 A MV I, PINTERFLAG STA, A ANA, 

RET, 

LABEL CNH 
ASSEMBLE > 

DECIMAL — 
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A XRA, RET, 


-Block 227—.- 

C POSITION OBJECT RELATIVE TO FORMATION LEADER ) 

SUBR POSREL VFVPL X L LDX, VFVFH X H LDX, H PUSH, Y FOPX, 
VFXBL X L LDX, VFXBH X H LDX, VXL Y E LDX, VXH Y D LDX, 

D DAD, L VXL X STX, H VXH X STX, 

VFYEL X L LDX, VFYBH X H LDX, VYL Y E LDX, VYH Y D LDX, 

D DAD, L VYL X STX, H VYH X STX, RET, 

DECIMAL —> 


-Block 228- 

< INTERRUPT ROUTINE TO WRITE RELATIVE FORMATION MEMBER 
SUBR FWRITE TECALC CALL, 

PQSDE PGS X BITX, 0=, IF, verase CALL, ELSE, PGSDE PQS 
THEN, aup CALL, POSREL CALL, 

PQSDW PQS X BITX, 0=, IF, vwrite CALL; ELSE, PQSDW FQ3 
PGSDE PGS X SETX, THEN, KILLOFF JMP, 

DECIMAL —> 


RESX, 

RESX, 










-I-B1 ock 


229- 
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VFXBL X SIX, H VFXBH X STX 

D DAD, M E MOV, H I NX, 
VFYBL X STX, H VFYBH X STX 

L PQRL X STX, H PQRH X STX, 

SP DAD, SPHL, 

X POPX, NEXT 


( LEADER X Y ANIMATION TIME STATUS VECTOR FSTART ) 

CODE FSTART X FUSHX, H POP, Y PUSHX, D POP, EXX, 

FRAME 2 Y L LDX, 3 Y H LDX, H PUSH, X POPX, 

CLRVEC CALL, G Y C LDX, C VRACK X STX, 

14 Y L LDX, 15 Y H LDX, L VFVPL X STX, H VFVFH X STX, 

VXL D LX I, D DAD, M E MOV, H I NX, 

M D MOV, 12 Y L LDX, 13 Y H LDX, L 
D DAD, L VXL X STX, H VXH X STX, 

14 Y L LDX, 15 Y H LDX, VYL D LX I, 

M E MOV, 10 Y L LDX, 11 Y H LDX, L 

D DAD, L VYL X STX, H VYH X STX, 

SETSTDW CALL, FWRITE H LXI, 

ASFLOK VAUXS X SETX, 

STARTVEC CALL, UNFRAME 14 H LXI 
EXX, D PUSH, Y POPX, H PUSH, 

DECIMAL —> 

-B1ock 230- 

C EFFECT REENTRY INTO RACK OR FORMATION ) 

( HL=TARGET X DE=TARGET Y A=TI ME BASE ) 

HEX F= TBCD F= YESLQX F= NOTLOK F= STUFX 

SUBR PLOTRENT <ASSEMBLE D PUSH, L VYL X STX, H VYH X STX, 
VDXL X C LDX, VDXH X B LDX, © H LXI, 

LABEL TBCD B DAD, A DCR, TBCD JRNZ, 

XCHG, VXL X A LDX, 0C0 ANI, A C MOV, VXH X B LDX, 

A ANA, B DSBC, YESLOK UP, < IF BELOW TARGET, LOCK TO IT ) 

D DAD, 0<, IF, B H MOV, C L MOV, A ANA, D DSBC, 

NOTLOK JMPR, THEN, ( IF ABOVE AND CLOSER THAN TBCD, LOCK IN 
LABEL YESLOK H POP, A XRA, STUFX UMPR, 

LABEL NOTLOK D POP, 1 A MVI, A ANA, 

LABEL STUFX L VXL X STX, H VXH X STX, RET, 

ASSEMBLE> DECIMAL —> 




-Block 231- 

( INTERRUPT ROUTINE TO REENTER KAMIKAZE 
SUBR REKAMI PQSBE PGS X BITX, 0=, IF, ver-ase CALL, ELSE, 

FQSDE PGS X RESX, THEN, TBCALC CALL, C A MOV, ( NOTE! ) 

VFVPL X L LDX, VFVPH X H LDX, H PUSH, Y POPX, 

VFXBL X L LDX, VFXBH X H LDX, VXL Y C LDX, VXH Y B LDX, B DAD 


XCHG, VFYBL X L LDX, 
B DAD, PLOTRENT CALL 
©=, IF, FWRITE H LXI 


f'FYBH X H LDX, VYL 


C LDX, VYH 7 B LDX, 


L PQRL X STX, H PQRH X STX, 


ASFLOK VAUX; 
aup CALL, 
FQ3DW PGS X 
PGSDE PGS X 
DECIMAL —> 


SETX, PQSFEZ PQS X RESX ; 


HEM j 


BITX, 

SETX, 


A: 


-N . 


■ , v iw r i 

XIL L 0 F 


I ALL, ELSE 


FQSDM PQS 
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-Block 232-— 

( ROUTINE TO RETARGET AN ATTACKER ) 

HEX SUER AAES A ANA, RP, CMA, A INR, RET, 
C ACTUAL TARGETER ) 

SUBR KTARGET H PUSH, VYH X A LDX, 

VYH FBVECTOR LDA, A SRLR, A SRLR, 

A E MOV, 

VDYH X B LDX, E SUB, A C MOV, E A 
0<, IF, C ADD, THEN, 

A VDDYL X STX, 7 A BIT, 0 A MV I, 

0< >, IF, CMA, THEN, A VDDYH X STX, 

VDDYL X A LDX, AAES CALL, 0E ANI, 6 CPI, 
THEN, A C MOV, 0 E MV I, VPTBL X L 
B DAD, M E MOV, H I NX, M D MOV, E 
D VPATH X STX, H POP, RET, 

DECIMAL —> 


A SRLR, A SRLR, A C MOV 
C SUB, A SRAR, A SRAR, 

MOV, B XRA, C A MOV, 


CY~, IF, G A MV I 
LDX, VPTBH X H LDX, 
VPATL X STX, 


) 


-Block 233- 

< ROUTINE TO FLIP OVER ATTACKER 
DATA FLIPOVER ASM 

HEX A0 SETM DECIMAL © PATI 4 SWAIT 

2 PATI 4 SWAIT 

4 PATI 4 SWAIT 

6 PATI 4 SWAIT 

8 PATI 4 SWAIT 

HEX 20 SETM DECIMAL 

6 PATI 4 SWAIT 

4 PATI 4 SWAIT 

2 PATI 4 SWAIT 

0 PATI S SWAIT 

ARET 


-Block 234 

( LEFT ROLL SEQUENCE 
DATA LEFTROLL ASM 
XADDWRITE SETR 
-3 -2 SETDDC 64 
2 PATI 4 SWAIT 
4 PATI 4 SWAIT 
6 PATI 4 SWAIT 
8 PATI 4 SWAIT 
-3 4 SETDDC <- S 


128 SETDC 0 PATI 8 SWAIT 


WA I' 


HEX A0 SETM DEI 
4 PATI 4 SWAIT 
2 PATI 4 SWAIT 
8 SWAIT 0 i SE" 
DATA REENTER A; 
0 0 SETDDC 1© ; 
0 PAT i 24 SWA I' 


S PATI 4 SWAIT 


© PATI 4 SWAIT HEX 20 SET 
'DDC ARET 

IM 13200 SETXC NULPAT SETP 0 
;hAI7 RENTGAL SETR 2 SWAIT 
FLIPOVER ACALL 120 SWA I 


DEC 


HAL 

SETDC 


AMAL" 
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-Block 235- 

( RIGHT ROLL SEQUENCE ) 
DATA RIGHTROLL ASM 
XADDWRITE SETR HEX A© SETM 
-3 2 SETDDC 64 12S SETDC 0 
2 PAT I 4 SHA1T 
4 PAT I 4 SWA IT 
6 PAT I 4 SWA IT 
8 PAT I 4 SWA IT 
-3 -4 SETDDC 4 SWAIT 
HEX 20 SETM DECIMAL 
4 PAT I 4 SWAIT 
2 PAT I 4 SWAIT 0 PATI 
0 -1 SETDDC ARET 
DECIMAL —> 


DECIMAL 
PATI 8 SWAIT 


6 PATI 4 SWAIT 


4 SWAIT HEX A0 SETM DECIMAL 8 SWAIT 


-Block 236- 

( KAMIKAZE ATTACK ANIMATION ) 

DATA KAMIATA ASM 

6 AREPEAT KTARGET ASMCALL 20 SWAIT ALOOP 60 SWAIT 
1920© SETXC NULPAT SETP 0 0 SETDC 0 0 SETDDC 1 SWAIT 
REKAMI SETR 64 @ SETDC 10 SWAIT FLIPOVER ACALL 
FOREVER 0 PATI 12© SWAIT EVERFOR 
DATA KAMIATL ASM LEFTROLL ACALL KAMIATA AJMP 
DATA KAMIATR ASM RIGHTROLL ACALL KAMIATA AUMP 
DECIMAL —> 


-Block 237- 

C ANIMATION TO ACTIVATE KAMIKAZES ) 

DECIMAL 

DATA KAMITBL KAMI , KMKZ1R , KMKZ2R , KMKZ3R , KMKZ4R , 

DATA AKAMI ASM KAMITBL SETPT 0 PATI FOREVER 120 SWAIT EVERFOR 
DATA AGORFPT GORF4 , G0RF4 , G0RF4 , G0RF4 , G0RF4 , 

DATA AKGORF ASM AGORFPT SETPT 0 PATI FOREVER 120 SWAIT EVERFOR 
DECIMAL ;S 
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SPACE INVADERS GAME ) 

CRAB1A ) 

CRAB1B ) 

CRAB2A ) 

CRAE2B ) 

CRAB3A ) 

CRAB3E ) 

UFO ) DECIMAL DATA UFO 3 B, 18 B, BINARY 0 B, 0 B, 0 B, 
UFO DATA TABLE CONTINUED ) 

ADDITIONAL UFO PATTERNS ) 

YET ANOTHER UFO PATTERN ) 

BOMB PATTERNS FOR SPACE INVADERS ) 

BOMB PATTERNS STYLE 2 > 

MISSIONS- INVADERS THUMP, TH ) HEX 
MISSIONS- GORF, IA, GORF EXPLOSION, GE ) HEX 
SPACE INVADERS GAME ) 

MORE GOODIES ) DECIMAL 
CONTINUED PATTERN MAKER ) 

SPACE INVADERS RACK COORDINATE BUMPER ROUTINE ) 

LOCAL FORCE FIELD GOODIES 1 
FIREBASE STUFF FOR SPACE INVADERS ) 

GOODIES TO EXPLODE A BOMB ) 

CHECK FOR BOMB INTERCEPT ) HEX 
BOMB INTERCEPT CHECKER CONTINUED ) 

PHASOR INTERCEPT CHECK ROUTINE ) 

BOMB ANIMATION SCORES ) 

SUBROUTINE TO DROP A BOMB IF POSSIBLE > 

BOMBER CONTINUED ) 

GORF BOUNCE ANIMATION ) 

UFOl ANIMATION ) 

ANIMATION SEQUENCES FOR UFO ) 

UFO ANIMATION CONTINUED ) 

SUBROUTINE TO SEND OVER UFOS ) 

SPACE INVADERS INITIALIZATION ) HEX 
C R A B R A C K E N T R Y A N 3 M A T I 0 M ) 

GORF SPIRAL OT } 

GAVE START O r J T “HE GORF ) 

SPACE INVADERS PUMPOUT SEQUENCE > 

TRANSITION FTCM MISSION I TO MISSION 2 ) HEX 

CRUDE SPACE :WADERS SCAN LOOP > . 

GORF SPIRAL OU" ) 

GAME STAR - SPIRAL OUT THE GORF ) 
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+-Block 100- 

( SPACE INVADERS GAME ) 
DATA GSAB © B, 0 , 
DECIMAL —> 
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*1 
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C CRAB1A 

a l oc 

) 

K 




1 

2 

DECIMAL 

BINARY 

DATA 

CRAB1A 3 

B 

r 

8 

3 

00010001 

E, 

®1000000 

B, 

0 

B 

4 

01000101 

E , 

01010000 

B, 

0 

E 

5 

00000001 

B, 

10010100 

B, 

0 

B 

G 

00000101 

B, 

©1010101 

B, 

0 

B 

7 

00000101 

B, 

01010101 

B , 

0 

B 

8 

00000001 

B, 

10010100 

B, 

0 

B 

9 

01000101 

B, 

010i0000 

B, 

0 

B 

10 

11 

00010001 
-> 

B, 

01000000 

B, 

0 

B 


-Block 102- 

( CRAB1B ) 

DECIMAL DATA CRAB1B 3 B, 8 B 
BINARY 

E, 

E, 


01000001 
00010001 
01000101 
00010001 
00010001 
01000101 
00010001 
01000001 


E, 

IP 


01000000 
01010000 
1@010100 
01010101 


B , 
B, 
B , 

B, 

B, 


0 

0 

© 

0 
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W ffl ffi M CQ M ! v i m 











-B1 ock 


103- 


0 

< CRAE2A 

) 





1 

DECIMAL 

DATA 

CRAB2A 3 

B 

/ 

11 B, BINARY 

2 

00000010 

B / 

10101000 

B, 

0 

B, 

3 

10001010 

B, 

1000000© 

B, 

0 

B , 

4 

00101010 

B, 

10100010 

B, 

0 

B, 

5 

00001010 

E, 

0110100© 

B, 

0 

B t 

6 

00001010 

B, 

10100000 

E t 

0 

B, 

7 

00001010 

B, 

10100000 

B, 

© 

B, 

S 

00001010 

E, 

10100000 

B, 

0 

E., 

9 

00001010 

B, 

01101000 

2 , 

0 

B , 

10 

00101010 

B, 

10100010 

B , 

0 

Ej 

11 

10001010 

E, 

10000000 

B t 

0 

B, 

12 

13 

14 

15 

00000010 
-> 

B , 

10101000 

B, 

0 

B, 

-1 

0 

1-- 

( CRAB2B 

Block 104- 

) 

— — 

—- 

— 

1 

DECIMAL 

DATA 

CRAB2B 3 

B 


11 B, BINARY 

2 

00000010 

B, 

10000000 

B , 

0 

B , 

3 

00101010 

B, 

10100010 

B ji 

0 

B, 

4 

10001010 

B, 

01101000 

B, 

0 

B, 

5 

10001010 

E/ 

10100000 

B , 

0 

E, 

6 

00001010 

B, 

10100000 

B, 

0 

B , 

7 

10001010 

E, 

10100000 

B ! 

0 

B / 

8 

10001010 

E, 

01101000 

IB j 

0 

B, 

9 

00101010 

B , 

10100010 

p 

« J 

© 

B , 

10 

11 

00000010 
-> 

B, 

1@000000 

B, 

0 

B, 00101010 


12 

13 

14 

15 


+-Block 105 


0 

( CRAB3A 

) 






1 

DECIMAL 

DATA 

CRAB3A 

3 B 

, 1 

2 

E, BINARY 

2 

11000011 

B, 

11110000 

B 

0 

B j 

11000011 

3 

00110011 

B, 

mill 00 

B, 

0 

E f 

00111111 

4 

00001111 

B, 

00111111 

B, 

0 

E j 


5 

00110011 

B, 

11111111 

B i 

0 

E j» 


6 

00110011 

B, 

1 1111 1 1 1 

B r 

0 

E j? 


7 

00001111 

B , 

©©I11111 

p 

0 

B n 


8 

00111111 

P 

00 : • - ' 

-■J.' J? 

© 

P 


9 

©0110011 

P 

1 1 1 f, 1 1 ©0 

7 

® 

B jp 


10 

11000011 

ff 

■i $ *i < % % 0i0 


@ 

B j 


11 

12 

13 

14 

11000011 

— > 


1 i j f, 0000 

■MS 

Ji.? J? 

0 

B j- 

DECIMAL 


15 i 


00101010 B, 0 , 


E, 0 , HEX 


B, 11111100 B, 0 E, 
B , 0011110© B, © E, 












106 


0 


1 

DECIMAL 

DATA 

CRAB3B 3 

B 

9 

12 

B, BINARY 






2 

00000011 

B , 

11110000 

B, 

0 

B, 

00110011 

B, 

11111100 

B, 

0 

B 

3 

11111111 

B, 

11111100 

B, 

0 

B, 

11001111 

B , 

00111100 

E, 

0 

B / 

4 

00001111 

B, 

0011111 1 

B, 

0 

E, 

00110011 

B, 

11111111 

B, 

0 

B, 

5 

00110011 

B, 

11111111 

B, 

0 

B / 

00001 111 

B, 

00111111 


0 

B, 

6 

11001111 

B , 

00111100 

B r 

0 

B, 







7 

11111111 

B, 

11111100 

B, 

0 

B, 







8 

00110011 

B , 

Him 0 @ 

B, 

0 

B , 







3 

00000011 

B, 

liii@0©0 

B t 

© 

B» 
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-Block 

CRAE3B ) 



H—-— — — — — 

Block 107- 

— 

— 

— 

0 

! C UFO ) 

DECIMAL DATA 

UFC 

3 

B 

1 

! 00001 100 

E , 

00000000 

E, 

0 

B , 

2 

! 00001 1 1 1 

B, 


B . 

0 

B, 

3 

!00011111 

B, 

11©00000 

B , 

0 

B , 

4 

101011101 

B, 

11110000 

B , 

0 

B, 

5 

I 00011 1 1 1 

B, 

111 10000 

E* f 

0 

B, 

6 

! 000011 1 1 

!B j 

11111100 

B, 

0 

B, 

7 

! 00001101 

B, 

mil 10© 

B, 

0 

E, 

8 

i 001 11111 

B, 

11111100 

B t 

0 

E j 

9 

i 00111111 

B , 

11111100 

0$ t 

0 

E, 

10 

! 00001101 

E, 

11111100 

ira 

W 9 

0 

E, 

11 

100001111 

B, 

i i i 1 i! 

B , 

0 

B, 

1 2 

100011111 

B ! 

1111@000 

B , 

0 

B, 

13 

101011101 

E, 

1111@00© 

P 

0 

B, 

14 

100011111 

B, 

11@00000 

B , 

0 

B j, 

15 

! 00001 1 1 1 

B, 

00000000 

B , 

0 

B i 


+- 

Block 108- 

— 

— 

— 

0 

if UFO DATA 

TABLE CONTINUED 

) 

1 

• 00001100 

B, 

©0©0©0©0 

B, 

0 

B , 

2 

10 B, 0 B 

, 0 

B, 




3 

1 DECIMAL 






4 

1 — > 







18 E, BINARY 0 B, 0 E, © B, 









H-Block 1@S- 

( ADDITIONAL UFO FATTERNS 


11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 
7 
S 
3 

1 0 
1 1 
12 

13 

14 

15 


1 !DAT A 

UF02 3 B 

1 

11 B t 

QUAD 

2 10033 

B, 

0000 

B, 

@000 

B, 

313033 

B, 

0000 

B / 

0000 

B, 

4 10333 

B, 

3000 

E, 

0@00 

B j 

510311 

B, 

3000 

B, 

©©©© 

B, 

613333 

B , 

3300 

B / 

0000 

B, 

7 1 3311 

B, 

3300 

B j 

0000 

3B t 

S13333 

B, 

3300 

B, 

@000 

B / 

310311 

B, 

3000 

B, 

@000 

B, 

1010333 

B, 

3000 

B, 

@000 

B, 

11 13033 

B, 

0000 

B, 

©000 

3 , 

1210O33 

B, 

0000 

3, 

0@@@ 

B, 

13 1 DECIMAL 

-> 




14 1 






151 






+- 

— 

-B1ock 


110 


01< YET 

ANOTHER 

UFO PATTERN 

1 | DATA 

UF03 2 B 

J 

S B J 

QUAD 

2 10300 

B, 

0000 

B, 



3 1 0320 

B, 

0000 

B, 



411320 

B, 

0000 

E, 



5 1 0323 

B, 

0000 

B / 



6 10323 

B j 


B, 



7 1 1320 

B, 

0000 

B i 



SI 0320 

B, 

0000 

E, 



3 1 0300 

B , 

0000 

E, 



10 1 DECIMAL 

- > 





+-g 1 ock 


111 


( BOMB FATTERNS 

FOR SPACE 

INVADERS 

; ) 



QUAD 

DATA B0MB1 

3 

B , 3 B t 

@010 B , 

0010 

B, 

0101 

B, 0100 

E, 

© 

S, 1000 

B, 

1000 

E , 

0 

B, 

DATA 

B0MB2 3 

B ! 


Bj @001 

B i 

0000 

B j 

0 

B, 

1010 

E, 1010 

E, 

© 

2 , @100 

B , 

0100 

E, 

0 

B r 

DATA 

B0ME3 3 

B, 

3 

B s © 1 0 0 

E j? 

01 00 

E, 

0 

B, 

1010 

B, 1010 

B, 

q 

Bi @001 

is? 

@@@@ 

B s 

g> 

B, 

DATA 

B0MB4 3 

E - 

3 

g, I, 000 

ti':' .7 

1 @00 

B, 

© 

& * 

0 1 © 1 

B , @10© 

T< 


L j -:-3i© 

-Bi 

@01 © 


© 

'O 

Lt ? 


DECIMAL 










m tj f j m co ff) tn -p*- tj i\) •-» ® tn-^tJM>- ! 'Stxic»'j(nui-ii-o)w- ! ‘S> tn u ro 


+- 
0 1 ( 


-Block 112- 

BOMB PATTERNS STYLE 2 



1!QUAD 


2 

DATA 

TOMB1 3 

E, 

3 

B, 

0010 

B, 

0100 

B, 

0 

E, 

1111 

B, 

1110 

B, 

0 

B, 

3 

0001 

B, ©01© 

B, 

0 

E, 













4 

DATA 

T0MB2 3 

B, 

3 

B, 

0100 

B, 

1000 

B, 

0 

B, 

1111 

B, 

1110 

B, 

0 

B, 

5 

1001 

B, 0000 

B, 

0 

B, 













6 

DATA 

T0MB3 3 

E, 

3 

B, 

1001 

B, 

000 © 

B, 

0 

B, 

1111 

B, 

1 110 

B, 

© 

P 

*-■ / 

7 

1010 

B, 0000 

B, 

0 

B, 













8 

DATA 

T0MB4 3 

B, 

3 

E, 

1000 

B, 

0000 

B, 

© 

B., 

1111 

B, 

111© 

B, 

© 

B, 


3 | 1 O00 B , 0000 E, 0 B , 
10iDEC IMAL —> 


11 


+-Block 113- 

!< MISSIONS- INVADERS THUMP, TH > HEX 
IDATA THUMPSCORE ASM 

! EE 0E 3 -1 0 0E MOVEVOLS 0E HITMO 7 © © MOVESOUND 
i #C1 #CS1 #D1 TONES S0 MASTER 36 4 SC S0 RAMP PLAY 
TH SHUTUP THUMPSCORE P2MUSIC i 
! — > 


H-g l oc |< 114- 

i ( MISSIONS- GORF, IA, GORF EXPLOSION, GE ) HEX 
IDATA IASCORE ASM 

1310 MOVESOUND 24 MASTER 1 2 30 20 RAMBLE 

I 10 -1 12 MOVELOWLIM 10 -1 2 MOVEHIGHLIM #C2 #E2 *G2 TONES 
f 33 AEVOLS 03 MCVOLS PLAY QUIET 
|: IA IASCORE P2MUSIC ; 

IDECIMAL }S 

IDATA GESCORE ASM 

! 7 9 10 TONES % -E 3F MOVESOUND 2 MASTER 1 10 FH 2 RAMP 

I IB COUNTL"«fTS 1 1 i FF "MOVENO ISE 3C MCVOLS CC AEVOLS PLAY 
! QUIET 

I . qf GESCORE P2MUS 1 C • 

i_%. 

0 ? 


i 

0 










cow^uro* i -<s><x)oc>'sjcrttn-j>-rjjro 


C 

T I 


-Block ISQ- 

SPACE INVADERS GAME 
MER@ C= UF0T1MER 
> 




+-Block 151- 

!< MORE GOODIES ) DECIMAL 

|4 ARRAY INVADERFAT 4 ARRAY INVADERDROPAT 

132 BARRAY CRAB1AE 100 BARRAY CRAE1ABD 42 BARRAY CRAB2AB 
1100 BARRAY CRAB2AED 44 BARRAY CRAE3AB 120 BARRAY CRAB3ABD 

I HEX : MAKEPAT5 CL 1000 1000 CRAB1A 20 WRITEP 1000 1200 CRAB1B 
120 WRITEP 6 A 0 CRAB1AE 1000 1000 SNAP 0 CRAB1AB 3 INVADERFAT ! 
11300 2000 CRAB1A 20 WRITEP 1000 220© CRAB1B 2© WRITEP 

114 A 0 CRAB1ABD 1000 2000 SNAP 0 CRAB1ABB 3 INVADERDROPAT ! 
|200@ 1000 CRAE2A 20 WRITEP 2000 1200 CRAB2B 2@ WRITEP 
|G D 0 CRAB2AB 200© 1000 SNAP 0 CRAE2AB 2 INVADERFAT ! 

12300 2000 CRAB2A 20 WRITEP 2000 2200 CRAB2B 20 WRITER 
|14 D 0 CRAB2ABD 2000 2000 SNAP 0 CRAB2ABD 2 INVADERDROPAT ! 
13000 1000 CRAB3A 20 WRITEP 3000 1200 CRAB3E 2© WRITEP 
IS E 0 CRAB3AB 3000 1000 SNAP 0 CRAB3AB DUF 0 INVADERFAT ! 

II INVADERFAT ! 

I — > 

+-Block 152- 

|( CONTINUED PATTERN MAKER ) 

13300 2000 CRAB3A 2© WRITEP 3000 220© CRAB3B 20 WRITEP 

114 E 0 CRAB3ABD 3000 2000 SNAP 0 CRAB3ABD DUP 0 INVADERDROPAT ! 

II INVADERDROPAT ! i 

I ( SPACE INVADER NORMAL PATTERN TABLE ) 

I DATA INVNORMLPAT CRAE3A , CRAB3A , CRABSft , CRAB!ft , 0 , 0 , 

! 0 } @ t CRAB3B > CRAB3B > CRAB2B , CRAB1B @ , © , © 

iDECIMAL K MOTE GOODIES ) © V= UGL 
1 : DRGS UGL ■ 0 0 2 RN.D 1 — + DUP © 

I ELSE DUP UGL @ = IF 1 - THEN THEM 
14 +LOOP ; 

| : DRAMGROUND 4 5 G 3 ~ DRGS 1 S 2 5S 
! — > 


= |p Pi p Q P ■' 

fi'up £», 7 pf>T A "P I^AX 

14 DRGS DROP i 












ui-fs-airo — ouiec.-^tnui.picjjh} 


-Block 153- 

C SPACE INVADERS RACK COORDINATE BUMPER ROUTINE ) 

SUBR INVBUMPER 

MASTERY LHLD, DMASTERY LDED, 7 D BIT/ 0=/ IF/ INVUL LECD, 
ELSE, INVLL LECD, THEN, FLIPCHECK CALL, 

0=, IF, DMASTERY SDED, DMASTERX LDED, MASTERX LHLD, 

D DAD, MASTERX SHLD, H A MOV, 5 CPI, CY, IF, 

1 A MV I, GAMEOVER STA, THEN, 0 INVADERDROPAT H LX I, 

ELSE, D DAD, MASTERY SHLD, 0 INVADERPAT H LX I, 

THEN, INVPATAB SHLD, RET, 

— > 


-Block 154- 

C LOCAL FORCE FIELD GOODIES ) 

SUBR eraseff FFLAG LDA, A ANA, R2, A XRA, FFLAG STA, 
20 A MV I, FFTIMER STA, FIELDRAW CALL, RET, 

DECIMAL —> 


H-Block 155- 

! C FIREBASE STUFF FOR SPACE INVADERS ) 

1 HEX SUER SIFBINTER EXPLODEFE CALL, RET, 

I HEX DATA SIFBA ASM SIFBINTER SETI 0C05 B@05 SETDDC 
!PLAYERANIM AJMP 
{DECIMAL —> 


3 

i 


B 

0 

S 










1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 
G 

7 

8 
9 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 
G 

7 

8 
9 

1 0 
1 1 
12 

13 

14 

15 


+-Block 156- 

( GOODIES TO EXPLODE A BOMB ) 

DATA BOMBEXF 2 B, 5 B, QUAD 1010 B, 0000 B, 0100 B, 0000 B, 
1111 B, 0000 B, 0100 B, 000© B, 1001 E, 0000 E, 

DECIMAL 

DATA ABEXP ASM 0 0 SETDC BOMBEXP SETP 6 SWAIT NULPAT 
SETP AHALT 

( ROUTINE TO EXPLODE A BOMB ) 

SUBR BANGEANG ABEXP H LXI, CRASHA CALL, XAWRITE H LXI, 

L PQRL X STX, H PGRH X STX, RET, 

DECIMAL —> 


-Block 157- 

C CHECK FOR BOMB INTERCEPT ) HEX 
F= CKPHASOR F = CKFF F= FFSL F= FFOK F= FF2L 
SUER INTERBOMB <ASSEMBLE 

0 FBVECTOR T LXIX, CMECKVEC CALL, CKPHASOR JRZ, 

Y PUSHX, XT IX, EXPLODEFE CALL, X POPX, BANGEANG JMP 
LABEL CKPHASOR PV1 LI YD, CHECKVEC CALL, CKFF JRZ, 
PQSRH POS Y RESX, BANGEANG JMP, 

LABEL CKFF FFLAG LDA, A ANA, BANGEANG JZ, VYH X C 
0 FIELDADR H LXI, B DAD, L E MOV, H D MOV, 3 E 

LABEL FFSL M A MOV, A ANA, FFOK JRNZ, 

BANGEANG JMP, 

LABEL FFOK RRC, RRC, 3F ANI, VXH X SUBX, 

4 ADI, 7 CPI, BANGEANG JNC, C DCR, D DCX, D PUSH 
C L MOV, 0 H MV I, H DAD, H DAD, H DAD, H DAD, 

L C MOV, H B MOV, H DAD, H DAD, B DAD, —> 


LDX, ' 
MV I , 

I NX, FFSL DJNZ, 


B MV I , 


+ -Block 158- 

( BOMB INTERCEPT CHECKER CONTINUED ) 

5 B MV I , 

LABEL FFZL XTHL, M A MOV, A ANA, 0< >, IF, 

A C MOV, 3 ANI, 20 OR I, MAGIC OUT, A XRA, A M MOV, 
H I NX, XTHL, C A MOV, RRC, RRC, 

3F ANI, A E MOV, © D MV I, XCNG, D DAD, OFF M MV I, 


H I NX, 0 M MV I, XCHG, 

50 D LXI, D DAD, FpZL DJNZ, 

H POP, BANG3ANS JM?, 

ASSEMBLE > 

DECIMAL —> 


SE, H I NX. 


VTUI 


THEN, 










0 

1 

2 

3 

4 

5 

6 
7 

a 

9 

1© 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 


a 

9 

10 
1 1 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 
G 
7 

a 

9 

10 
1 1 
12 

13 

14 
1 5 


-Block 159- 

( PHASOR INTERCEPT CHECK ROUTINE 5 
DECIMAL F= INTLOG 
SUER PINTER <ASSEMBLE 
PINTERFLAG LDA, A ANA, RN2, 

3 C MV I, CHECKALL CALL, 0<>, IF, 

VIDENT Y A LDX, 2 AN I, @<>, IF, Y PUSHX, XTIX, EANGEANG CALL, 
X POPX, A XRA, INTLOG JMPR, THEN, 

PGSRH PQS Y RESX, PQSDW PQS Y SETX, 

VYL Y L LDX, VYH Y H LDX, PINTERY SHLD, 

VXL Y L LDX, VXH Y H LDX, PINTERX SHLD, 

VRACK Y C LDX, 6 C BIT, ©=, IF, XALIVEBITS CALL, M XRA, 

A M MOV, THEN, 1 A MV I, INTLOG JMPR, 

THEN, RACKCHECK CALL, R2, 2 A MVI, 

LABEL INTLOG PINTERFLAG STA, C A MOV, FINTERN STA, 
verase CALL, PGSRH PQS X RESX, 

RET, ASSEMBLE> —> 

-Block IS©- 

C BOMB ANIMATION SCORES ) 

HEX 

E0MB2 , BOMBS , B0MB4 , 

T0MB2 , T0MB3 , T0MB4 , 

DATA AEOMESUB ASM XINR1TE SETR NULPAT SETFP 1NTEREOME SETI 
-B0 0 SETDC 

FOREVER 0 PAT I 6 SNA IT 2 PAT I 6 SNA IT 4 PAT I G SNA IT 
G PAT I 6 SNA IT 4 PAT! 6 SNA IT 2 PATI G SNA IT EVERFOR 
DATA ABD1 ASM AE1TEL SETPT ABOMBSUB AJMF 
DATA ABD2 ASM AB2TEL SETPT ABOMBSUB AJMP 
DECIMAL —> 


DATA AB1TBL BOMB! 
DATA AB2TBL TOME1 


+-Block 161- 

( SUBROUTINE TO DROP A BOMB IF POSSIBLE ) 

HEX F= BITSCL F= BITFND 

SUER BOMBCHECK <ASSEMBLE BOMBTIMER LDA, A ANA, RN2, 

LDAR, OF AN!, A C MOV, 8 ANI, 0<>, IF, MASTERY 1 + LDA, 
A B MOV, VYH FBVECTOR LDA, B SUB, CY-, IF, RRC, RFC, 

RRC, RRC, 7 ANI, A C MOV, ELSE, 3 C RES, THEN, THEN, 

0 B MVI, 0 RACKSITS H LX I, B DAD, M A MOV, A ANA, RZ, 
LABEL BITSCL RRC, ElTEND JRC, B I NR, BITSCL JMPR, 

LABEL BITFND C ft MOV, RLC, RLC, 'RLC, 2 ORA, A C MOV, 
iCALC INVX COLL, TOMSDX S LX I, ft DAD, MtfiS’ERX LDED, B DAD, 
:H PUSH, L RALR, H ft MOV, RAL, A E MOV, 

! c A MOV, CALCINVY CALL, BOMBDY 35 LX I, D DAD, 

!MASTERY LDES, D DAO, ft"PUSH, 










0 

1 

2 

3 

4 

5 

6 
7 
3 
9 

10 

11 

12 

13 

14 

15 
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2 

3 

4 

5 
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9 

10 
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12 

13 

14 
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0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
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12 

13 

14 

15 


+-Block 162- 

( BOMBER CONTINUED ) 

LDAR, 1 AN I, 0=, IF, ABD1 H LXI, ELSE, ABD2 H LXI, THEN, 

H PUSH, ( ALIST ) B A MOV, 8 SUI, A L MOV, 0 H MV I, H PUSH, 
2A4 H LXI, H PUSH, 

INVADERSLEFT LDA, A C MOV, SKILLFACTOR LDA, A ANA, 0=, IF, 
LDAR, IF ANI, ELSE, A XRA, THEN, 

6 ADI, C ADD, BOMBTIMER STA, 

XYVSTART JMP, ASSEMBLE> 

CODE BOMBER X PUSHX, Y PUSHX, EXX, BQMECHECK CALL, 

EXX, Y POPX, X POPX, C SHOVEL INVADERS LEFT ) 

INVADERSLEFT LDA, 5 ADI, TIMEBASE MB2 + STA, 


NEXT 

DECIMAL —> 

-Block 163- 

( GORF BOUNCE ANIMATION ) 

HEX 

DATA BOUNCER ASM © 10© SETDC -1© 0 SETDDC GORF SETP 11 SWAIT 
GORFB SETP 120 10© SETDC 11 SWAIT ARET 

DATA BOUNCEL ASM 0 -10© SETDC -10 0 SETDDC GORF SETP 11 SWAIT 

GORFB SETP 120 -10© SETDC 11 SWAIT ARET 

DATA ER3 ASM 3 AREPEAT BOUNCER ACALL ALOOP ARET 

DATA BL3 ASM 3 AREPEAT BOUNCEL ACALL ALOOP ARET 

DATA BL5 ASM 5 AREPEAT BOUNCEL ACALL ALOOP ARET 

DATA SETLVL ASM NULPAT SETFP XADDWRITE SETR 420© SETXC ARET 

DATA BOUNCE ASM SETLVL ACALL B00© SETYC ELS ACALL 

BR3 ACALL BL3 ACALL BR3 ACALL BL3 ACALL NULPAT SETP AHALT 

DATA GORFL ASM SETLVL ACALL B000 SETYC ELS ACALL AHALT 

DATA GORFR ASM SETLVL ACALL 0 SETYC 5 AREPEAT BOUNCER ACALL 

ALOOP AHALT 

DECIMAL —> 

-I-Block 164- 

( UFOl ANIMATION ) 

HEX 

DATA UFOlL ASM XADDWRITE SETR 4280 SETXC 0 SETYC 
NULPAT SETFP 

UF02 SETP 0 200 SETDC 20 SWAIT 0 -8 SETDDC 40 SWAIT © @ SETDC 
0 0 SETDDC IS SWAIT 0 -8 SETDDC 40 SWAIT © © SETDDC 3F SWAIT 

AHALT 

DATA UFOlR ASM XADDWRITE SETR 4280 SETXC B400 SETYC 

NULPAT SET-F UFO2 SETP © -2A© SE~DC AT THAI! © 3 SETDDC 
i 40 SWAIT © § SETDC © © SETDDC 1© SWAI" © 3 SETDDC 40 SWAI" r 
10 © SETDDC 3F SKA IT AHALT 

I DECIMAL —> 










w ro ^ in 


H-Block 165- 

! ( ANIMATION SEQUENCES FOR UFO ) 

I HEX 

iDATA UFOL ASM UFO SETP NULPAT SETFP 4100 SETXC 0 SETYC 
10 100 SETDC 78 SWA IT 3C SWAIT AHALT 

[DATA UFOR ASM UFO SETP NULPAT SETFP 4100 SETXC 0B400 SETYC 
10 -100 SETDC 78 SWAIT 3C SWAIT AHALT 
! — > 


_l-B1 ock 1 66- 

!C UFO ANIMATION CONTINUED > 
f, HEX DATA UFOATEL 

143 B, UFOL , 43 S, UFOL , 43 B, UFOR , 43 B, UFOR , 

145 B, UFOIL , 45 B, UFOIL , 45 B, UFOIR , 43 E, UFOR , 

144 B, GORFL , 44 B, GORFR , 45 B, UFOIR , 43 B, UFOL , 

144 B, GORFL , 44 E, GORFR , 43 B, UFOL , 43 B, UFOR , 


44 B, GORFL 
DECIMAL —> 


-Block 167- 

C SUBROUTINE TO SEND OVER UFOS ) 

HEX SUER UFOCHECKSUER 
UFOTIMER LDA, ft ANA, RNZ, 

LDAR, 7F AN I, 8 ® ADI, UFOTIMER STA, LDAR, OF AN I, 

A C MOV, RLC, C ADD, A C MOV, 0 B MV I, UFOATBL H LX I, 
E DAD, M C MOV, H I NX, M E MOV, H I NX, M D MOV, 

0 H LX I, H PUS-', H PUSH, D PUSH, B PUSH, IAS H LX I, 


l CODE UFOCKEC 
i EXX, Y POPX. 
I DECIMAL —> 


Y p BJ CP IJ! Y 


IKSUER CALL, 


■ 

5 

0 










f-Block 168- 

! < SPACE INVADERS INITIALIZATION ) HEX 

IDATA INVCOLORS 12 B , 7D B, E4 B t A3 B f 12 B, 7D B, 5A B , 0F B, 
i: SISPELL 10© 50©0 428 A" SPACE INVADERS" COUNT SPOST ; 

1: INITSPACEINV 0 FLOOD INITMISSIONRAM CL MAKEPATS 31 MISSION ! 
i DRAWMISSI ONSCREEN SISPELL DRAWGROUND 3 9 OUTP 
! RESETRACK 2@ INVADERSLEFT ! SKILLFACTOR @ IF 2400 
i ELSE 2800 THEN MASTERX ! FD0O DMASTERX ! 

!8 © DO 0 I RACKS ITS B! 0F I ALIVEBITS Bi LOOP 
180 0 DO MASTERY * I AN IMSTATE ! MASTERX « I 1 + 

I AN IMSTATE ! 2 +LOOP 
10 FFLAG ! -2 INITFF 

1 1NVBUMPER BUMPMASTERROUTI HE ! 0 INVADERPAT INVPATAB ! 

1' TH REINIT ! PINTER PHASINTR ! eraseff FI REACT I ON ! 

1SIFBA FBANIM \ PINTERFLAG ZERO 

1 INVNORMLPAT NORMLP1 ! GETNGDE DUP PV1 ! © SWAP 1 j 
1 DEC IMAL —> 

t--B 1 ock 169~--— 

!( CRAB RACK ENTRY ANIMATION ) 

IDATA RENT ASM 11 SWAIT 0 @ SETDC RENTGAL SETR 120 SWAIT AHALT 

IDATA ACRAB1 ASM CRAB1A SETP RENT AJMP 

IDATA ACRAB2 ASM CRAB2A SETP RENT AJMP 

IDATA ACRAB3 ASM CRAB3A SETP RENT AJMP 

1 TABLE SIDOTBL ACRAB3 , ACRAB3 , ACRAB2 , ACRAB1 , 

1 — > 


SWAP 


RENTGAL SETR 1 
' AJMP 
' AJMP 
’ AJMP 

ACRAB2 , ACRAB1 


:0 SWAIT AHALT 


-Block 170- 

( GORF SPIRAL OUT ) 

HEX 

DATA GORFSPI ASM FEBA 067D SETDC 0007 
DECIMAL 

NULPAT SETP SPWRITE SETR NULRET SET I 


0603 SETBBC 


1 SWAIT 


GORF1 SETP 4© SWAIT 


1G0RF2 SETF 

1G0RF3 SET” 
j GORF 4 SET? 
I G0RF5 SET? 
! GORF SETP 
! FOREVER U 


35 SWA I 


EVERFOR 


14 1 

15 1 
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+-Block 171- 

< GAME START SPIRAL OUT THE GORF 
HEX 

: UDL 0 DO UPDATEALL BMS LOOP ; 

: SPOUT 3 INVCOLORS FUC 
GENLINE LSTART 

MUTHAX © MUTHAY © 2DUP SETLXY 
SVCY ! SVCX ! 

6 8 50 50 SETSF 
4 UDL NULRET LINIT ! 

2 SPIRALRATE ! 

GORFSPI 67 0B2 VST ART 
0E0 UDL } 

DECIMAL —> 


172- 

DUMPOUT 


SEQUENCE > 


FI RECHECK PHASORINTERCEPTCHECK 


FIRE BASE > 


-B1ock 

< SPACE INVADERS 
HEX 0 V= GORFV 
; SIWAIT WTIMER ! BEGIN 
BMS WTIMER 0 © = END ; 
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11 

1 ©000 

B, 

0001 

B . 

; 

■5 x 

© 

Ip 


12 

! @000 

B, 

001 1 


i 

p 

i0 

3, 


13 

! DECIMAL 

-> 








14J 










+-Block 115 


0 

! ( LAST 

ROTATED GALAX2 

PATTERN > 

1 

! DECIMAL 

DATA 

GAL2R4 4 

B 

* 

8 B, QUAD 

2 

i 0000 

B, 

0202 

Ej 0000 

B, 

0 

B 3 

3 

j 0000 

B, 

0202 

B, 0000 

B r 

0 

B t 

4 

! 0200 

B, 

2222 

B/ 2002 

B / 

0 

E > 

5 

10222 

B , 

2121 

B , 2222 

B, 

0 

B, 

6 

| 0000 

B, 

2222 

B, 2@00 

E, 

0 

E, 

7 

i 001 1 

B, 

1222 

B, 1110 

B, 

0 

B 3 

8 

! 0111 

B, 

0222 

B j. 0111 

B , 

0 

Ei 

3 

! 01 10 

B, 

0020 

B f 0011 

V> 

0 

B i 

10 

! DECIMAL 

— > 





1 1 








12 








13 








14 








15 









, 



4 A C — 












0 

!( FIRST 

ROTATED GALAX! 

PATTERN ) 

1 

! DECIMAL 

DATA 

GAL1R1 4 

B 

J> 

12 B 3 QUAD 

2 

! 0001 

B, 

1 000 

B i 0000 

B i 

0 

B, 

3 

! 0001 

B, 

0000 

B , 0000 

B , 

0 

B / 

4 

10001 

B, 

0010 

E i 0000 

B j 

0 

B, 

5 

13301 

E, 

1100 

B t 0®0@ 

3, 

0 

B 3 

G 

13331 

B, 

3110 

E, 1000 

B, 

0 

B, 

7 

i 3031 

B, 

1111 

Bi 000© 

B, 

© 

B, 

8 

! 0001 

B, 

1131 

B f 0©0@ 

B, 

0 

E, 

3 

i @001 

B , 

1111 

B / 

B i 

© 

Bi 

10 

! 0000 

B, 

01 1 1 

B , 1010 

B / 

0 

Bi 

1 1 

! 0000 

B, 

©1 1 1 

E , @110 

B, 

0 

Bi 

12 

i 0000 

E, 

0110 

B, 011© 

B, 

0 

B, 

13 

! 0000 

E, 

@10© 

B, 0000 

J£5 jp 

0 

E, 

14 

! DECIMAL 

- > 





15 

i 








+•- 

— 

-B1ock 

117- 

— 

— 

— 

0 

it SECOND ROTATED GALAX1 

PATTERN ) 

1 

! DECIMAL 

DATA 

GAL1R2 4 

B 

y 

12 Bi QUAD 

2 

! 0001 

B, 

@00© 

B, 00©0 

B > 

0 

B } 

3 

10010 

E, 

0©0>3. 

2 f @C3© 

B J 

0 

B j? 

4 

i 0001 

B, 

0001 

El 0000 

B , 

0 

E, 

5 

j @@0@ 

2, 

1 1 1 0 

g J 0000 

LJ f 

© 

Bi 

6 

! ©330 

33 j 

1311 

Bl ©I ©@ 

P 

@ 

iS p 

7 

! 3333 

E, 

^ .-'"i ^ < 

•55 jp « 

•■■■■ P 

0 


S 

| 00 @ 

B * 

1 1 1 3 

T.3 * o- 

3 j 


3 ■» 

3 

!@@@1 

is j? 


_ r 

■ p 


T> 

10 

\ 0 ® @ 1 

3 f 

1130? 

73? ?7* r r 

3 jr 

0 


11 

] 0 0 0 0 

3 = 


r 0 ft * 0 


ft 

n 

12 

1 @@00 

B , 

@@23 

3,7 © r ^@ 

SP 

© 

B i 

13 

3 @0@@ 

B, 

© @ 3 @ 

Ej @2@@ 



' "C? 

*s J 

14 

! DECIMAL 

~~), 






15 ! 












<4*———— 

— 

—B1ock 


118- 

— 



0 I( THIRD 

ROTATED 

GALAX 1 

PATTERN ) 

1iDEC I HAL 

DATA 

6AL1R3 4 

B 

i 11 B 

, QUAD 

21011© 

B , 

0000 

3, 

0 000 

B 9 

0 B, 


3 101-00 

B , 

0000 

E, 

000© 

B, 

0 B, 


4|0010 

B , 

0001 

E 3 

0 0 0 0 

B, 

© B j? 


510011 

B, 

1 1 1 0 

B , 

© © © © 

B / 

©■ B, 


610331 

B, 

1311 

B, 

010© 

rs 

D 9 

0 B 3 


713333 

B, 

1111 

& r 

1 @0© 

B t 

0 Ej 


810000 

B, 

1113 

B, 

1001 

3 , 

0 B, 


310000 

B , 

1111 

E > 

1111 

B , 

0 B, 


1010000 

B, 

0033 

B, 

0©@@ 

B , 

0 E , 


11|0000 

B, 

0003 

B , 

3000 

B, 

© B j 


1210000 

B, 

0033 

3, 

3000 

3, 

0 B , 


13 1 DECIMAL 

— > 






14 1 








15 1 








H- 

— 

—B1 ock 


113- 

— 



01C LAST 

ROTATED 

GALAX1 

PATTERN 

) 

1 1 DEC IMAL 

DATA 

GAL1R4 4 

E 

9 S B 9 

QUAD 

210000 

B / 

©101 

B , 

© © © © 

B , 

© B j 


310000 

B, 

0101 

B, 

0000 

B, 

0 E) 


410100 

B, 

1111 

3, 

1001 

E, 

0 B, 


510111 

B, 

1313 

B, 

1111 

£> 9 

© B, 


610000 

B, 

1 111 

B, 

1 000 

E 9 

0 B, 


710033 

B t 

3111 

B i 

333© 

T> 

IS 9 

© B j 


810333 

B, 

0111 

B 9 

0333 

£? 9 

0 B j 


910330 

B, 

0010 

B, 

0033 

3, 

© B 


10 ! DECIMAL 

— > 






11 1 








12 1 








13 1 








14 1 








151 








+- 

— 

-E1ock 


120- 

-— 



0!f FIRST 

ROTATED 

GALAX IAN 4 ) 


1 1 DAT A 

GAL4R1 4 

B 

, 11 B 

9 

QUAD 


210000 

B, 

2220 

E, 

0@@@ 

E, 

@©0© 

B, 

310022 

B, 

2000 

B 9 

0000 

B, 

0000 

B t 

410021 

E, 

1130 

E, 

0©@@ 

J»2* 9 

@000 

IS / 

510211 

B, 

1 133 

B, 

3©@@ 

13 

9 

0 0 0 0 

B, 

610211 

B } 

1113 

B .5 

33@© 

T> 

-J s 

@@©!^ 

B, 

7 \ @00© 

B } 

1 i 31 

B, 

3 & q 

‘23 

JU 9 


IS f 

810011 

3B 9 

*1 ^ -■? 

TT- 

p, $ |S5j ffa 


£--■ 1$ £>, 

J? 

3 10110 

3B 9 

@ J 1 * 

J 

*?» 0| 


iff; rp r-T'l 

pr> 

1011@@@ 

E, 

iDj i *■;] -f 
& L a 

TT; 

© © c, © 



jp ;? 

11 l 0002 

12i 

33 1. 

3 9 

■p -p rp 


r”'i ?7\ ^ 

J.;5 j> 

12\0000 

3., 

^ p *p 'P 

rTi 

?£ : T 

"~v -i 

, "l 

p» 

13iDECIMAL 

> 






14 S 









15 1 











+-Block 121 


0 

|( SECOND ROTATED GALAX1 AN 4 

) 

1 

IDATA 

GAL4R2 4 

E 

, 11 B 

f 

QUAD 


2 

10002 

E, 

0000 

E, 

0000 

E, 

0000 

B , 

3 

10020 

B, 

0000 

B, 

0000 

B, 

0000 

B, 

4 

10210 

B, 

0000 

B, 

0000 

B / 

0000 

B, 

5 

12113 

B , 

3333 

B, 

®@®0 

B, 

@000 

B, 

6 

12111 

B, 

1133 

B , 

0000 

B, 

©000 

B, 

7 

12111 

B, 

1313 

B, 

0000 

B / 

©00© 

B, 

S 

12101 

B , 

0113 

B 3 

0000 

B.. 

0 0 0 © 

B ! 

9 

12001 

B , 

1113 

E ; 

0020 

rs 

* 

0000 

B, 

10 

1 0010 

B, 

01 1 1 

B, 

0200 

-rj 

Lj j 

0000 

B / 

11 

10100 

B, 

1111 

B 3 

200© 

B , 

0000 

B , 

12 

11002 

B, 

2222 

B, 

0000 

E 3 

0000 

B, 

13 

1 DECIMAL 

— > 






14 

1 

1 








15 

j 









+- 

— 

—B1ock 


122- 

— 



0 

K THIRD 

ROTATED 

GALAXIAN 4 ) 


1 

IDATA 

GAL4R3 4 

B 

, 11 E 


QUAD 


2 

1 0020 

B , 

0000 

E > 

0000 

E / 

000© 

E » 

3 

1 0200 

B, 

0030 

3 , 

0000 

B i 

0000 

E, 

4 

10203 

B, 

3333 

3, 

0000 

B / 

0000 

B, 

5 

12111 

B, 

1133 

E, 

0000 

3, 

0000 

B f 

6 

12111 

B, 

1313 

B, 

3020 

E f 

0000 

B, 

7 

1 221 1 

B, 

1111 

Bj 

102© 

3B / 

0000 

B, 

3 

1 0200 

B, 

1111 

E, 

1220 

2, 

© 0 00 

B 3 

9 

1 0200 

B , 

1011 

E, 

120© 

ra 

i_s f 

0000 

B, 

10 

1 0001 

B, 

1011 

E, 

220© 

3 ? 

0000 

E, 

11 

1 0001 

B, 

0022 

E, 

000© 

3, 

0000 

B, 

12 

1 0010 

E, 

0000 

3, 

0000 

E, 

0000 

B, 

13 

1 DECIMAL 

-> 






14 

1 








15 

I 









+- 

— 

-BIock 


123- 

— 



@ 

1 ( LAST 

GALAXIAN 

4 ROTATED ) 


1 

1 DATA 

GAL4R4 4 

B 

i 11 E 

J 

QUAD 


' 2 

1 0000 

B, 

0300 

B, 

0000 

B j 

000© 

B 3 

3 

i 2000 

B , 

3330 

B, 

0020 

B , 

0000 

E, 

-4 

12003 

B , 

3333 

B, 

0020 

B, 

0000 

E, 

5 

12133 

B, 

1313 

B, 

3120 

B 3 

000© 

B, 

S 

12111 

B, 

131 1 

B, 

1 1 20 

3, 

0000 

B 

7 

1 2211 

B j 

rf j? rt 

li I. 1 A 

■*3 

1 22® 

A j? 

0 © 0 © 

|S 

D> j? 

a 

1 0221 

B, 

A < fat , ■ 

U:’ 

2200 

S jf 

A 0 0 0 

B j? 

9 

1 0022 

B j 

0 ■‘S. A “P 

f 

2010101 

Jw' J? 

A, A A A 

2 j> 

1 0 

i 0002 

B 3 

0102 

3 3 

A fa A A 

2D 

J 

000 A 

B 3 

1 1 

J 0000 

B, 

01 0® 

B, 

.0000 

j- 1 ? 

*"T*j 

s, 

12 

1 0000 

B 3 

0 1 @@ 

"R ^ 

A A A A 

■ ' J? 

fa 0 A 0 

B s 

13 

1 DECIMAL 

_ i"*' 

V S 







14 j 

15 ! 











+ 


®! ( 

i: - 
2 ( 
3| 


-BIock 

GALAX1ANS GAME 
> 


150 

> 


4 

5 

6 
7 
S 
3 

10 
11 
12 

13 

14 

15 


0 

1 

2 

3 

4 

5 

6 
7 

a 

3 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 
G 
7 

a 


GAL2A , 
. GAL3B 


GAL3A 

GAL4 


GAL4 


-Block 151- 

< MORE GOODIES ) DECIMAL 
DATA GALAXNORMLPAT GAL1A , GAL1A . 

0,0,0, GAL1B , GAL1B , GAL2B 

5 ARRAY GALAXPAT 

4G BARRAY GAL1AB 46 EARRAY GAL2AE 46 EARRAY GAL3AB 
GO BARRAY GAL4AB 

HEX : MAKEPATS CL 0 @ GAL4 2© WRITEP 0 200 GAL4 2© WRITER 
C D 0 GAL4AB 0 0 SNAP 0 GAL4AB 4 GALAXPAT ! 

100© 1000 GAL1A 2© WRITEP 1000 1200 GALIB 

20 WRITEP 6 D 0 GALiAB 1000 1000 SNAP 0 GALT AB BUP 0 GALAXPAT ! 
1 GALAXPAT ! 

2000 1000 GAL2A 20 WRITEP 2000 1200 GAL2B 20 WRITEP 

6 D 0 GAL2AB 2000 100© SNAP 0 GAL2AB 2 GALAXPAT I 
300© 1000 GAL3A 2© WRITEP 300© 1200 GAL3B 20 WRITEP 
6 D 0 GAL3AB 3000 1000 SNAP 0 GAL3AB 3 GALAXPAT ! i 
— > 

-Block 152- 

C BUMP GALAXIAN RACK COORDINATES ) HEX 

SUBR GALBUMPER MASTERY LHLD, DMASTERY LDED, 7 D BIT, ©=, IF, 
INVUL LBCD, ELSE, INVLL LBCD, THEN, FLIPCHECK CALL, 

0=, IF, DMASTERY SDED, ELSE, D DAD, MASTERY SHLD, THEN, 

RELMT CALL, RET, 

— > 
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2 

/3 

4 

5 
G 
7 

a 

9 

10 
11 
12 

13 

14 
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1 

2 

3 

4 

5 

6 
7 
S 
9 
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12 

13 

14 

15 

0 

1 

2 

3 

4 

5 
S 
7 
£■ 
9 

1 0 
1 1 
12 

13 

14 


X MVIX: 


D DAD/ M D MOV/ 


+-Block 153- 

C INTERRUPT BOMB DROPPER ) HEX 

F= TBBLP F = DROPLP F= NODROP F= OKDROP F= NOBOMB F= NOBOMB1 
SUBR BOMBDROPPER <ASSEMBLE 
20 A MV I/ MAGIC OUT, FQTB X A LDX, 0 PQTB 
LABEL TBBLP PSW PUSH, 

0 BOMBARRAY H LXI, 

NBOMBS A MV I , 

LABEL DROPLP PSW PUSH, M C MOV, C A MOV, 

A ANA, NOBOMB URZ, 055 XRI, A M MOV, 5 D LXI, 

C A MOV, 

H DCX, M E MOV, D STAX, 05 CPI, 0=, IF, 05© A MV I, D STAXj 
H I NX, H I NX, NOBOMB1 UMPR, THEN, 

H DCX, M B MOV, H DCX, M C MOV, XCHG, 

B DAD, XCHG, H DCX, M DCR, M A MOV, 3 CPI, 

NODROP URC, S D BIT, OKDROP URZ, 

— > 

-Block 154- 

( INTERRUPT BOMB DROPPER CONTINUED ) 

LABEL NODROP H DCX, 0 M MVI, NOBOMB JMPR, 

LABEL OKDROP H INX, H I NX, H INX, 05 A MVI, D STAX, 

E M MOV, H INX, D M MOV, H INX, NOBOMB1 JMPR, 

LABEL NOBOMB BOMBAS IZE D LXI, D DAD, 

LABEL NOBOMB1 PSW POP, A DCR, DROPLP JRNZ, 

PSW POP, A DCR, TBBLP JRNZ, 

RET, 

ASSEMBLE> 

DECIMAL —> 


-155- 

( START A BOMB DROPPING ) HEX 
F= BOMBSL F= BOMBFND 

SUER EOMEADIER <ASSEMBLE PGSFRZ PQS X BITX, RNZ, 

H PUSH, 0 BOMBARRAY H LXI, NBOMBS B MVI, BOMBASIZE D LXI, 
LABEL BOMBSL K ft MOV, ft ANA, BOMBFND JRZ, D DAD, BOMBSL DJNZ, 
H POP, RET, 

LABEL BOMBFND 05 M MVI, H INX, VXH X A LDX, A M MOV, H INX, 
VYH X A LDX, A SRLR, A SRLR, A C MOV, VYH FBVECTOR LDA, 


A SRLR, ft SSL". 
,-i D LXI, ELSE, 
i ELSE, 3 CPI, C' 
l THEN, THEM, E ' 
! VSAL X L LDX, I 
f 0 , * F , .12 ft ■’, 

! MAGIC OUT, 05 I 


jGJ5 

SUB, ©<, IF, 0~D CPI, 
D LXI, THEN .•■ 

", 35 ~ p ELSE, 45 

y, h iMX, :o m mov> k : 

X H LDX, IE© 3 LXI, I 


r y -v ip, 

.j LX I j? 

(NX / XCHG f 
' VMAG IC X 

20 A MV 


XC 


My . 


M 


LNX 9 D M 


.5|H POP. 


RPT , 


‘TT; !5T fv 8 7 
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H-Block 156- 

( ANIMATION LISTS TO ACTIVATE FIREBASE AND BOMBING ) 

SUBR GALINTER CKATRS CALL, EXPLODEFB CALL, RET, 

HEX 

DATA GALFBA ASM GALINTER SETI 1805 B0O5 SETDDC PLAYERANIM AJMP 
( BOMB GOODIES ) 

DATA INITEOMBS ASM BOMEDROPPER SETR NULPAT SETP 2 SWAIT 
DECIMAL 

DATA EOMBR ASM 10 SWAIT BOMBADIER ASMCALL 20 SWAIT EOMBADIER 
ASMCALL ARET —> 


ATTACK SOUND- GA ) HEX 


MOVESOUND 


-Block 1S7- 

( SPACE MISSIONS GALAXIAN 
DATA GASCORE ASM 
#FS3 #E3 #G2 TONES 1 -2 3F 
10 MASTER 3 -1 20 8 RAMBLE 1 COUNTLIMITS 
18 NOISE 0 VIES AA ABVOLS 2A MCVOLS 
PLAY 42 VIES RERAMBLE 1 COUNTLIMITS 
PLAY 3 1 30 20 RAMBLE 44 VIES 1 COUNTLIMITS 
PLAY 3 1 40 1C RAMBLE 4A VIES 2 COUNTLIMITS 
PLAY 4 -1 1C 18 RAMBLE PLAY 
— > 


+-Block 158- 

( SPACE MISSIONS BMUSIC BLOCK cont. ) 
SUBR GA GASCORE H LXI, 0 MUSIC-BARRAY- 
DECIMAL —> 


2 Y LX IX, bmusic JMP, 










H-B1 ock 


< SUBROUTINE TO START AN ATTACKER VECTOR ) DECIMAL 
F= DINGBAT 

SUBR ATSTART <ASSEMBLE DI, PINTERFLAG LDA, A ANA, DINGBAT JRNZ, 
H PUSH, B PUSH, 413 D LXI, D PUSH, 
ge+node CALL, H PUSH, 

FRAME 2 Y L LDX, 3 Y H LDX, H PUSH, X POPX, 

CLRVEC CALL, 7 Y A LDX, A VFYBH X STX, G Y C LDX, 

XRACKBITS CALL, M XRA, A M MOV, El, Y PUSHX, GETASTATE CALL, 

Y POPX, L VYL X STX, H VYH X STX, E VXL X STX, D VXH X STX, 
SETSTDU CALL, STARTVEC CALL, 

UNFRAME E POP, B POP, B POP, H POP, 

TOGGLEMEMBER CALL, GA JMP, 

LABEL DINGBAT El, RET, ASSEMBLE > 

CODE ATT X PUSHX, H POP, Y PUSHX, D POP, EXX, 

B POP, H POP, ATSTART CALL, 

EXX, D PUSH, Y POPX, H PUSH, X POPX, NEXT —> 

-B1ock ISO- 

( ROUTINE TO RETARGET AN ATTACKER ) 

HEX 

SUBR TARGET H PUSH, VYH X A LDX, VFYBH X SUBX, 

A SRLR, A SRLR, A C MOV, VYH FBVECTOR LDA, A SRLR, A SRLR, 

C SUB, A SRAR, A SRAR, A E MOV, VDYH X B LDX, E SUB, A C MOV, 

E A MOV, B XRA, C A MOV, 0<, IF, A SRAR, C ADD, THEN, 

A VDDYL X STX, 7 A BIT, 0 A MV I, 

0< >, IF, CMA, THEN, A VDDYH X STX, 

VDDYL X A LDX, AAES CALL, OE AN I, G CPI, CY~, IF, S A MV I, 

THEN, A C MOV, 0 E MV I, VPTBL X L LDX, VPTBH X H LDX, 

B DAD, M E MOV, H INX, M D MOV, E VPATL X STX, 

D VPATH X STX, H POP, RET, 

DECIMAL —> 


GAL3R3 


GAL3R4 


-Block 161- 

( PATTERN TABLE FOR GAL3 ) 

DATA GAL3TEL GAL3A , GAL3R1 , GAL3R2 , GAL3R3 , GAL3R4 , 
( PATTERN TABLE FOR GALS ) 

DATA GALSTBL GAL2A , GAL2R1 , GAL2R2 , GAL2R3 , GAL2R4 , 
C PATTERN TABLE FOR GAL1 ) 

DATA GAL1 TEL GAL1A , GAL1RS , GAL1R2 , GAL1R3 , GAL1R4 , 
( PATTERN TABLE FOR GAL4 ) 

DATA GAL4TBL GAL4 , GAL4R1 , GAL4R2 , GAL4R3 , GAL4R4 , 


G A d_ 4 R > 


GAL4R4 


3 S — > 


11 l 

12 § 
1 3 1 

14 | 

15 f 











Nn’tmiiMoinsnNn’tiii © ^ tvi n ^ true n od sr> © 


-Block 162-- 

C REENTER GALAXIAN 4 ) 

DECIMAL 

DATA REENTER4 ASM 19200 SETXC NULPAT SETP 00 SETDC 0 0 SETDDC 
25 SWA IT RENTGAL SETR 2 SWAIT 0 PAT I 4 SWA IT FLIPOVER ACALL 
120 SWAIT AHALT 
— > 


+-Block 1G3- 

!C LEFT ROLL GALS ) 

IDATA DIVE3 ASM TARGET ASMCALL BOMER ACALL 30 SWAIT TARGET 
iASMCALL 4© SWAIT TARGET ASMCALL 40 SWAIT REENTER AJMP 
IDATA LEFTS ASM GAL3TBL SETPT LEFTROLL ACALL DIVES AJMP 
IDATA RIGHT3 ASM GAL3TBL SETPT RIGHTROLL ACALL DIVES AJMP 


11 
12 

13 

14 

15 


-Block 164- 

C LEFT ROLL GAL2 ) 

DATA DIVES ASM TARGET ASMCALL EOMBR ACALL 30 SWAIT TARGET 
ASMCALL 10 SWAIT BOMBADIER ASMCALL 60 SWAIT 
REENTER AJMP 

DATA LEFTS ASM GAL2TBL SETPT LEFTROLL ACALL DIVE2 AJMP 


DATA 
— > 


RIGHTS ASM GAL2TBL SEl 


: IGHTROLL ACALL DIVE2 


JMP 










N n Tt LO U) N eQ 6 ) © ■** N CO -t LO 


0 

1 

2 

3 

4 

5 
e 

7 

S 

9 

10 
1 1 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

0 

1 


-Block 165- 

( ROLL GflLl LEFT AND RIGHT 3 

DATA DIVE1 ASH TARGET ASMCALL BOMBR ACALL 10 SWAIT TARGET 
ASMCALL 76 SWAIT REENTER AJMP 

DATA LEFT1 ASH GAL1 TEL SETPT LEFTROLL ACALL DIVE1 AJMP 
DATA RIGHT1 ASM GAL1TEL SETPT RIGHTROLL ACALL DIVE1 AJMP 
— > 


-Block 166- 

< RANDOM GORF GOODIES 3 ' 

hex 

DATA GORFEXIT ASM 40 0 SETDC 11 SWAIT REENTER AJMP 

DATA GALGORFR ASM 0 100 SETDC 0A AREPEAT GORF SETP 5 SWAIT 

GORFB SETP 5 SWAIT ALOOP GORFEXIT AJMP 

DATA GALGORF ASM 4800 SETXC NULFAT SETP 

0 0 SETDC 0 0 3ETDDC 28 SWAIT 0FE 0 SETS 

RENTGAL SETR 1 SWAIT GORFB SETP 10 SWAIT 

XADDWRITE SETR 1 GALGORFR RANDOMDO 

0 -100 SETDC 

OA AREPEAT GORF SETP 5 SWAIT GORFB SETP 5 SWAIT ALOOP 
GORFEXIT AJMP 
DECIMAL —> 


-Block 167- 

( LEFT PEELOFF FOR GALAX I AN 4 3 

DATA DIVE4 ASM TARGET ASMCALL BOMBR ACALL 20 SWAIT TARGET 
ASMCALL 40 SWAIT TARGET ASMCALL 46 SWAIT 3 GALGORF RANDOMDO 
REENTER4 AJMP 

DATA LEFT4 ASM GAL4TEL SETPT LEFTROLL ACALL DIVE4 AJMP 
DATA RIGH14 ASM G A L 4 T B L SETPT RIGHTROLL ACALL D i V E 4 AJMP 
— > 


E 

a 


s 

a 

s 

8 










H-B 1 ock 1 68- 

IC ATTACK PATH TABLES ) 

!DECIMAL 

iDATA LEFTATBL LEFT1 , LEFT1 , LEFT2 , 

IDATA RIGHTATBL RIGHT1 , RIGHT1 , RIGHT2 , 

IDATA ATG1 32 B, 255 B, 11 B, 240 B, LEFT3 , 13 B, @ B, LEFT3 , 
!20 E, 0 B, LEFT4 , 255 B, 

■DATA ATG2 0 B, 144 B, 19 B, 0 E, RIGHT3 , 27 B, IS B, RIGHT3 , 
i20 E, 0 B, RIGHT4 , 255 E, 

IDATA ATG3 32 E, 255 B, 35 B, 240 B, LEFTS , 43 E, 0 B, LEFT3 , 
144 B, 0 B, LEFT4 , 255 E, 

IDATA ATG4 © B, 144 B, 43 B, 0 B, RIGHT3 , 51 B, IS B , RIGHTS , 
144 B, 0 B, RIGHT4 , 255 B, 

IDATA ATGTEL ATG1 , ATG2 , ATG3 , ATG4 , 

I — > 


-Block 169- 

< SUBROUTINE TO RESET THE ATTACK TIMER ) 

HEX SUBR SETATMR B PUSH, A C MOV, INVADERSLEFT LDA, 5 CPI, 
CY' V , IF, SK1LLFACTOR LDA, A ANA, 

0=, IF, LDAR, 3F ANI, ELSE, A DCR, 0=, IF, © C MV I, LDAR, 
IF ANI, ELSE, 0 C MV I, A XRA, THEN, THEN, 

A B MOV, INVADERSLEFT LDA, B ADD, C ADD, ATTACKTIMER STA, 
THEN, E POP, RET, 

( SUBROUTINE TO ABORT IF INVADER TOO CLOSE TO EDGES ) 

F= NOGO 

SUBR CKPATH <ASSEMBLE H PUSH, 

C A MOV, CALC1NVY CALL, MASTERY LDED, D DAD, H A MOV, 

H POP, IE CPI, NOGO JRC, 094 CPI, NOGO JRNC, 

M E MOV, H INK, M D MOV, XCHG, A ORA, RET, 

LABEL NOGO A XRA, RET, ASSEMBLE > 

DECIMAL —> 


.j.-Block 170- 

IC ATTACK ROUTINE FOR CODES 1 THRU 6 ) HEX 
I SUBR AT1T6 

|C A MOV, 4 CPI, CY, IF, LEFTINVN LDA, A DCR, 
I ELSE, RIGHT INVN LDA, 4 SUI, RIGHTATBL H LX I, 
I THEN, C ADD, A C MOV, 3 ANI, 

IRLC, A E MOV, @ D MV I, D DAD, 

IH PUSH, XRACKSITS CALL, H POP, R2, 

I CKPATH CALL, RZ, 0 B MVI, 

= ATSTART CALL# iO A MV I, SETA"MR JMP, 

! DECIMAL —> 


A DCR, LEFT ATBL H LXI 


11 I 

12 l 

13 1 

14 | 

15 i 
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+-Block 171- 

C ATTACK ROUTINE FOR CODES 
HEX F= ATSL F= PTL F= NOPF 
SUBR ATG7T10 <ASSEMBLE 
C A MOV, RLC, A C 
M E MOV, H I NX, M 
H I MX, M CMP, 

C MOV, H PUSH, 
IF, 

POP, 


8 

3 

10 
11 
12 

13 

14 

15 


_ . 7-10, ) 

PTL F= NOPE 

B MV I, ATGTBL H LXI, B 
XCHG, MASTERY 1 + LDA, 

I NX, H PUSH, 0 B MV I, 

XALIVEBITS CALL, 0< >, 
NR, ELSE, H POP, u 
H I NX, H I NX, H I NX, H INX 


B INR, 


MOV, 0 
D MOV, 

RC, H I MX, M CMP, PNC, H 
LABEL PTL M C MOV, 

XRACKEITS CALL, 0< > 

THEN, THEN, H P 
PTL JRN2, H POP, ~ 

50 A MV I, SETATHR CALL 
LABEL ATSL M C MOV, 

MOV, H INX, 

MOV, A INR, R2, H PUSH, D PUSH, „ 
POP, NOPE JRZ, ATSTART CALL, 

POP, ATSL JMPR, -- 

172 


DAD, 

M CMP, 

IF, 
POP, RET j 
M A MOV, 


A 


B ORA, RZ j 


INX. 


M E MOV j 


'nCK ROUTINE ) HEX 


M D 
C A 

B POP, H 
LABEL NOPE 

-Block 

C CHECK FOR AT 
F= NOAT 
CODE CHECKATTACK <ASSEMBLE 
ATTACKTIMER LHLD, H A MOV, 
LDAR, 0F ANI, A INR, 

0D CPI, CY, IF, RRC, 7 ANI 
ELSE, 0D SUI, A C MOV 
EXX, Y POPX 


H INX, 
B PUSH. 


M E MOV, H I NX j 


XRACKEITS CAL! 
ASSEMBLE> DECIMAL —> 


LABEL NOAT 
ASSEMBLE > 
DECIMAL —> 


X PUSHX, Y PUSHX, 
L ORA, NOAT JRNZ, 


EXX j 


. A C MOV, AT1T6 CALL, 
ATG7T10 CALL, THEN, 

X POPX, NEXT 


-Block 173- 

( PHASOR INTERCEPT CHECK ROUTINE > 

F= INTLOG 

SUBR PINTER <ASSEMBLE 
PINTERFLAG LDA, A ANA, RNZ, 

1 C MV I, CHECKALL CALL, 0< >, IF, 

PQSKH PGS Y RESX, PGSDW PGS Y SETX, 

VYL Y L LDX, VYH Y H LDX, FINTERY SHLD, 


VRACK Y 
|A M MOV. 


LDX, G C 

T H E N, l A 
C A! 

; LABEL INTLOG PINTER 
i vera.se CALL , F0SR -l 
I RET, ASSEMBLE > 

1 — > 


;VI, INTLOG 
- R7- 2 A t 
'LAG STA, C 


:bits call, m xra. 


MOV, PIN 


3 i 


A j 


INR, 
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+-Block 174- 

( GALAXIAN COLORS AND WAIT ROUTINE ) 

HEX 

DATA GALCOLORS 7 B, 7D B , 0B B, 5A B, 7 B, 7D B , 0B E, 5A B, 

( WAIT FOR ATTACK TO END ROUTINE ) 

: RACKWAIT 1 S O DO I RACKBITS B@ I ALIVEBITS B@ 

< > IF DROP 0 THEN LOOP ; 

: WAITOUTATTACK BEGIN BMS RACKWAIT END SHUTUP l 
DECIMAL —> 


-Block 175- 

C INITIALIZE GALAXIAN GAME ) 

HEX : INITGAL 0 FLOOD INITMISSIONRAM 32 MISSION ! 

RESETRACK MAKEPATS DRAWMISSI ONSCREEN 
100 5000 408 A" GALAXIANS" COUNT SPOST 
GALBUMPER BUMPMASTERROUTINE ! © GALAXPAT INVPATAB ! 
GALAXNORMLPAT NORMLP1 ! 3000 MASTERX ! PINTER PHASINTR ! 

80 0 DO MASTERY ® I ANIM5TATE ! MASTERX ® I 1+ ANIMSTATE ! 

2 +LOOP J WAITOUTATTACK RE1NIT ! 8 0 DO 0 I RACKBITS B< LOOP 
7 0 ALIVEBITS B! 0F 1 ALIVEBITS E! IF 2 ALIVEBITS El 
OF 3 ALIVEBITS B! 0F 4 ALIVEBITS B! IF 5 ALIVEBITS E! 

0F G ALIVEBITS E! 7 7 ALIVEBITS Bi 
2© INVADERSLEFT ! © LEFT 1NVN ! 33 RIGHTINVN ! 

0 PINTERFLAG ! BATOTAL © DO 0 I BOMBARRAY B! LOOP 
GALFBA FBANIM ! ACTFB 

GETNODE DUP PV1 f © SWAP ! INITBOMES 0 A2 VST ART 

I DEC IMAL — > 

1 76- 

WAIT ROUTINE ) 

CHECKATTACK FIRECHECK PHASORINTERCEPTCHECK 


5 GALCOLORS FUC 

-g | ocJi 

( SCAN LOOP AND 
: GALSCAN WRTINV 


PLAYERHITCHECK BMS j 
: GSWAIT WTIMER i BEGIN 
BMS WTIMER @ © = END j 
: GSWA1T1 WTIMER ! BEGir 
BMS WTIMER © 0 = END .? 
DECIMAL 


WRTINV FIRECHECK PHASORINTERCEPTCHECK 


FIRECHECK PHASORINTERCE 


I HECK 


14 I 

15| 
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-Block 177- 

C ANIMATION STUFF TO DUMP OUT GALAXIANS ) 

DATA DUMPREENTER ASM 19200 SETXC NULPAT SETF RENTGAL SETR 
1 SWA IT 0 PAT I 20 SWA IT FLIPOVER ACALL 120 SWAIT AHALT 
DATA DUMPGAL1 ASM GAL1TBL SETPT DUMPREENTER AUMP 

DATA DUMPGAL2 ASM GAL2TEL SETPT DUMPREENTER AUMP 

DATA DUMPGAL3 ASM GAL3TBL SETPT DUMPREENTER AJMF 

DATA DUMPGAL4 ASM GAL4TBL SETPT 19200 SETXC NULPAT SETP 

RENTGAL SETR 1 SWAIT © PAT I 4 SWAIT FLIPOVER ACALL 120 SWAIT 
AHALT 


+-Block 178- 

C DUMPOUT ROUTINE ) 

HEX 1A2 C= DUMPST DECIMAL 
: PLYGA GASCORE B2MU3IC ; 

: DUMPGALS EMUS IC E2MUSIC PLYGA WRTINV 
57 0 DO DUMPGAL1 I DUMPST VST ART S +LOOP 120 GSWAIT1 
PLYGA 58 1 DO DUMPGAL1 I DUMPST VST ART S +LOOP 11© GSWAIT 
PLYGA 59 2 DO DUMPGALS I DUMPST VST ART 8 +LOOP 100 GSWAIT 
PLYGA 52 11 DO DUMPGALS I DUMPST VST ART 8 +LOOP 10© GSWAIT 
PLYGA DUMPGAL4 20 DUMPST VSTART DUMPGAL4 44 DUMPST VST ART 
180 ATTACKTIMER ! ; 

— > 


179- 

STARTUP 


H-g ] ock 

( SCAN LOOP AND 
HEX 

: GALAXIANS INITGAL 
E 

HEX AS'GSAB U1 
: BEGINGAME STARTGAME 
DECIMAL 


DUMPGALS BEGIN GALSCAN 


ENDOFFRAME @ END GALCOLORS SC 3 FDE ; 

GALAXIANS GSAB 1+ U! 

SKILLFACTOR ! GSAE 


1 + 


DOIT j 


1@ 
11 
12 

13 

14 

15 
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136- 

ROUTINE ) 16 BASE 
I 6EDD , 00 B , 66DD , 01 B , 
UNMAP 0AF B, 0F8D3 , 0F3D3 


■“ ~~ *“—■ — 1 — 1 E1 q c k 
( SYSTEM LOAD 
CODE 
CODE 
HERE CONSTANT 
0 VARIABLE 
0 VARIABLE 
0 VARIABLE 
1 VARIABLE 
: bload ( From 
DUP >R 0 DO 
I 400 * + 

: boot .o 1 
4000 .-t © 


.eot ( end of TERSE 
,o ( #blks ,eot - 

,-t C #blks 40@0 — 

,h ( #blks 8000 - 

,f (. #blks F000 — 

-blk tro—addr #blks 
2DUP DROP I + BLOCK 
400 UNPROT BMOVE PROT 
bload .eot ,o © bload 
bload S©00 ,h © bload 


E5 B, NEXT 
0FF3E , 0FAD3 
) 

) 

) 


4000 

8000 

HERE 

FFFF 


0 VAR I 
0 VAR! 
0 VAR I 


, NEXT 

ABLE .dp 
ABLE .vp 
ABLE .la 


-next:—blk 

2DUF DROP 
LOOP DROP R > 


) 


.dp © DP ! 

UNMAP SCR © 1+ 

0A BASE ! }S 

-Block 138— 

< SYSTEM LOAD ROUTINE 


vp © VPTR ! .la 
boot: DEC I MAL . ' 


© LAST 
03-18 


F000 
! i 
80“ 


+ J 

. f © b1oad 
} 

fast: OK jS 


) 16 


CODE 

CODE 

HERE 

0 

0 

0 

1 


I 6EDD , 00 B , 66DD 
UNMAP 0AF E, 0F8D3 


. eot: 

. o 
. -t 
, h 
,f 

f row-b1k 
5 DO 2DUP 
+ 4@0 UNPROT 
1 b1oad .eot 


BASE 
01 B, 
0F3D3 , 
end of TERSE 
#blks .eot: - 
Sblks 4000 — 
Sblks 8000 — 
#blks F00© - 
-to —addr #blks 
DROP I + BLOCK 
BMOVE PROT 
.o © b1oad 


4000 

3000 

HERE 

FFFF 


CONSTANT 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
: b 1 oad ( 

DUP >R 
I 400 * 

: boot .o 

4000 .-t © bload 8000 .h © bload F0©0 

■dp @ DP ! .vp © VPTR ! .la @ LAST ! 
UNMAP SCR © 1+ boot DECIMAL .“ 03-18-80 
©A BASE ! 

133- 

ROUTINE ) 16 BASE 
I SEDD , 00 B , S6DD , ©1 B 
UNMAP 0AF B, 0F8D3 , 0F3B3 


E5 B/ NEXT 
0FF3E , 0FAD3 
) 

) 

) 

) 


0 VAR I 
0 VAR I 
0 VAR I 


NEXT 

ABLE .dp 
ABLE .vp 
ABLE .1 a 


) 


— next-bik ) 
2DUP DROP 
LOOP DROP R> - 


. f 


b 1 oad 


fast 


f 

-E1ock 

( SYSTEM LOAD 
CODE 
CODE 

HERE CONSTANT .eot 
0 VARIABLE .o 

0 VARIABLE 
0 VARIABLE 
1 V A R I A 3 L E . f 
: b 1 oad C ■? rc-m—b 1 k 
DUP > R ® D0 2 3 UP 
I 4©0 M + 40® ur- 
; boot ,c 1 blond 
4000 , i: @ b l a&d 


ES B r NEXT 
0FF3E , 0FAD3 
C end of TERSE ) 

( =^bIks .eot — 400© ) © VAR I 
‘ ' bIks 4000 - 3000 > 0 VAR I 
3000 HERE! y 0 V 0 R i! 
F © 0 0 — FFFF ) 


.dp © EsP 
UNMAP SCR © 
©A EASE ! ;l 


' ' 3 J. K 

f 4-b I k 

iro —addr # 
DROP I + 
PROT BMOVE 
. s © t . a O 

© iOs iCs t& 

*»-? '■£? '£t‘ a u j 

"R f . I 
TiMfil 


ABLE .dp 

ftBLR .vp 


t, i . 

3 & LA S 

SLOCK 

PROT 


V a 


— ne 

sc “t b 1 k ) 

2D UP 

■p, p f-'i, p>. 

LOOP 


P pf©, ^ f\ 

m 0 g~ l Q 

ST ] 

n 

l 3 — 30 

50 si T* S. 3 


OM s * 











100 ! ( 

101 JC 

102 !C 

150 I ( 

151 ! ( 

152 ! C 
'153 it 

154 i C 

155 K 

156 IC 
1 57 f ( 
158 ! C 
issic 
IS© !C 
1S1 ! C 
162 ! C 
1 S3 i C 
1 64- S C 
165 i( 


BEGINING OF ATTACK FIGHTER GAME > 

ATTACK FIGHTER PATTERNS - LEADER PATTERN ) 

MISSIONS- LASAR LZ ) HEX 
ATF VARIABLES ) 

PHASOR INTERCEPT CHECK ROUTINE ) 

TIME BASED VECTOR UPDATE - WITH LIMIT CHECKING ) 

FORMATION LEADERS ALMOST NULL INTERRUPT ROUTINE ) 

ANIMATION TO ACTIVATE FORMATIONS ) 

ROUTINE TO ACTIVATE THE FORMATIONS ) 

KAMIKAZE ATTACK COORDINATOR > 

FORMATION MOVE ROUTINE - RANDOM MOVES FIGHTER FORMATIONS ) 
INTERRUPT ROUTINE 70 DRAW LASER BLAST ) 

LASER ANIMATION AND VECTOR START ROUTINE ) 

CHECK FORMATION STATE VARIABLE AND EITHER FIRE OR REVECTOR ) 
FORMATION MOVE CHECK ROUTINE ) 

ANIMATION LIST FOR FI REBASE STUFF ) 

ATTACK FIGHTERS COLORS AND WAIT ROUTINE ) 

INITIALIZE ATTACK FIGHTERS GAME 5 
SCAM LOOP AND STARTUP 3 
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H-B1 ock 

0i( BEG IN I NG OF 
1iDATA GSAB © B , 
— > 


© 0 - 


FIGHTER GAME ) 


H-Block 101- 

j< ATTACK FIGHTER PATTERNS - LEADER PATTERN ) 


! DATA 

LEADER 4 

B 

, 11 E 

■f 

QUAD 


i 0000 

B, 

0000 

B r 

3000 

E , 

0000 

B, 

! 0003 

B , 

3333 

B, 

3000 

B t 

0000 

B, 

| 000© 

B ? 

0220 

B, 

2000 

B, 

0000 

B, 

| 0000 

B, 

0220 

B, 

0000 

B / 

0000 

E, 

! 0000 

B / 

2220 

B, 

0220 

B j 

0000 

B, 

11111 

E, 

2222 

E t 

2220 

B, 

0000 

B, 

10000 

B / 

2220 

E, 

022® 

B, 

0000 

E, 

1 0000 

B, 

0220 

E, 

0000 

B, 

0000 

B, 

j 0000 

E, 

0220 

B , 

2000 

B, 

000© 

B j 

! 0003 

B, 

3333 

B, 

3000 

B, 

0000 

B, 

1 0000 

E, 

0000 

B, 

3000 

ID 

■SU? J 

0000 

E, 

S DECIMAL 

I 







s 

+ — — 


-B 1 nr: If 


1 02- 





! < MISSIONS- LASAR LZ ) HEX 
1DATA LZSCORE ASM 

! 28 MASTER *G2 *D3 «=A4 TONES CC ABVOLS 1C MCVOLS 
| © 1 1 20 MOVENOISE 1 2 0 MOVESOUND 1 C0UNTPAN5 FLAY 
!*20 1 -1 0 MOVENOISE 1 -1 28 8 RAMBLE 1 COUNTPANS PLAY 
i KESCORE LDPCC < Jump to background sound ) 

! DECIMAL jS 


D 
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150 


+-B1 ock 

01C ATF VARIABLES ) 
110 V= TBV1 0 V= TEV2 
0 V= FSV1 0 V= FSV2 
DECIMAL —> 


5 ARRAY 


FI 5 ARRAY F2 


+-Block 151- 

i< FHASOR INTERCEPT CHECK ROUTINE ) 

!DEC IMAL F= INTLOG 
!SUBR PINTER <ASSEMBLE 
iPINTERFLAG LDA, A ANA, RNZ, 
i 1 C MV I, CHECKALL CALL, R2, 

1PQSRH PGS Y RESX, FQSDW PQS Y SETX, 

!VYL Y L LDX, VYH Y H LDX, PINTERY SHLD, 
jVXL Y L LDX, VXH Y H LDX, PINTERX SHLD, 

IVRACK Y A LDX, PINTERN STA, 

11 A MV I , 
iPINTERFLAG STA, 

|( INVADERSLEFT LDA, A DCR, INVADERSLEFT STA, ) 
1 verase CALL, PQSRH PQS X RESX, 
i RET, ASSEMBLE> —> 


-Block 152- 

( TIME EASED VECTOR UPDATE 
DECIMAL F= LCD1 F= LCD2 
SUBR VUPDLC < ASSEMBLE 
C A MOV, A ANA, R2, < DONT 


WITH LIMIT CHECKING ) 


IF ZERO VECTORING WANTED > 


VXL X L LDX, VXH X H LDX, VDXL 
LABEL LCD1 D DAD, LCD! DJNZ, H 
VDDXL X H LDX, ® L MV I, L VDXL 
! VDBXH X CMPX, CY-I", VDDXH X 
|L VDXH X SIX, "VIM, THEN , L VX; 
l VYL X L LDX, VYH X v LDX, VDYL 
1 LABEL LCDS i? DAD, ;:_CDL , H 
IVDDYL X H LDX, C L XVI, L VDYL 


X E LDX, VDXH X D LDX 
A MOV, VDDXL X CMPX, 

X STX, L VDXH X STX, 

ri LDX, 0 L MV I , L V X, 


r' n MAlt 




U 


l V U 


VDDYH X O' 
L VDYH X 5 
40 VXZW X 
DECIMAL -- 


f'DDYH X 
I, L v Y 


X ST 

X E LDX, VDYH i 
A MOV, VDDYL X 
X STX, L VDYH l 
H LDX, 0 L MV I 

. A a { d-s, n v b n . 


C 3 MOV, 


rv 


VDY r . 


rT> T' V 


-mo- 
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153- 


( FORMATION LEADERS ALMOST NULL INTERRUPT ROUTINE ) 

SUBR FLEADER TBCALC CALL, VUPDLC CALL, aup CALL, KILLOFF JMP, 
DECIMAL —> 


+-Block 154- 

! ( ANIMATION TO ACTIVATE FORMATIONS ) 
i HEX 

i DAT A TBVTL ASM FLEADER SETR NULPAT SETP 4010 0A00C SETDDC 
[FOREVER 120 SWAIT EVERFuR 

[DATA ATBV1 ASM 3800 SETXC 1000 SETYC TBVTL AJMP 
[DATA ATBV2 ASM 38©© SETXC 48©0 SETYC TBVTL AJMP 
[DATA ALEADER ASM LEADER SETP FOREVER 120 SWAIT EVERFOR 
[DECIMAL —> 


+ -Block 155- 

[ ( ROUTINE TO ACTIVATE THE FORMATIONS > 

[HEX : STARTFORMATIONS GETNODE TBV1 ! GETNODE TBV2 ! 

[5 0 DO GETNODE I FI i GETNODE I F2 ! LOOP 
iATBV1 © @BA TBV 1 @ XVSTART ATBV2 0 0BA TBV2 § XVSTART 


[ TBV1 

0 

400 

0 AKAMI 

03 

1 B 2 

0 FI 

0 FSTAR7 


! TBV2 


400 

0 AKAMI 

@3 

1B2 

0 FH 

@ F S T A R T 


[ TBV 1 


40© 

1000 ijX 

AN I 

03 

1B2 1 

FI @ FSTART 


i TEV2 

0 

400 

SO 00 A-< 

AM I 

03 


F 2 @ F S T A R T 


! I B V 1 


40© 

SOSO AK 

AM I 

©3 

1B2 2 

FI # FS~ART 


! TBV2 

(S 

400 

2000 AK 

,q, Mj J 

o 3 

1 B 2 2 

... eg"AFT 


1 SKI LI 

LFACTOE 

§ IF f 


§ 8 

@@ 1 O 0 

i 0 AKGORF 03 1B2 3 

FI 0 FSTAET 

! TBV2 


8 0 O 

1000 AK 

Ai rfl* 

F ©3 

j! rji -"2 

! F 2 @ JFSTART 0A EL 

,SE 8 THEN 

[ INVADER 

'SLEF 

p ““ "Ti r #J j! 

tl v)' 

0 l 

®@4 AL 

.EABEE 04 132 4 FI 

4 FST ART 

l TBV2 


0 1 @ 


"IF f? 

04 

132 4 




DECIMAL —> 
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+-Block 156- 

C KAMIKAZE ATTACK COORDINATOR > 

HEX SUBR KAMIATC ATTACKTIMER LDA, A ANA, RNZ, 

LDAR, 7 AMI, 4 CPI, CY, IF, 0 FI H LXI, 

ELSE, 0 F2 H LXI, 3 AN 1, THEN, RLC, A E MOV, 0 D MVI, 

D DAD, M E MOV, H INX, M D MOV, D PUSH, X POPX, DI, 

PQSRH PQS X BITX, R2, ASFLOK VAUXS X BITX, RZ, 

VYH X A LDX, 20 SUI, 90 CPI, RNC, 

LDAR, 1 ANI, 0=, IF, KAMIATL H LXI, ELSE, KAMIATR H LXI, 
THEN, ASFLOK VAUXS X RESX, CRASHA CALL, LDAR, 7F ANI, 

20 ADI, ATTACKTIMER STA, PLAYKBS JMP, 

CODE CKKAMI X PUSHX, Y PUSHX, B PUSH, KAMIATC CALL, El, 

B POP, Y POPX, X POPX, NEXT 
DECIMAL —> 


-Block 157- 

< FORMATION MOVE ROUTINE ^ RANDOM MOVES FIGHTER FORMATIONS 
HEX SUBR FMOVER < IN IX=FORii VECT DE=Y BIAS ) 

D PUSH, SKILLFACTOR LDA, A ANA, 0=, IF, 40 D LXI, D PUSH, 

30 D LXI, ELSE, 20 D LXI, D PUSH, IS D LXI, THEN, 

rnd CALL, D POP, D DAD, H PUSH, ( TIME ) 

2000 D LXI, rnd CALL, 2000 D LXI, D DAD, D POP, D PUSH, DI, 
VXL X C LDX, VXH X B LDX, CDELTA CALL, L VXL X STX, 

H VXH X STX, E VDXL X STX, D VDXH X STX, 

4000 D LXI, rnd CALL, D POP, B POP, D PUSH, B DAD, 

VYL X C LDX, VYH X B LDX, CDELTA CALL, 

L VYL X STX, H VYH X STX, E VDYL X STX, D VDYH X STX, El, 

D POP, RET, 

DECIMAL —> 


-Block 15S- 

C INTERRUPT ROUTINE TO DRAW LASER BLAST ) 

C VDDXL=STATE VAR, VDDXH=X COUNTER, VBDYHL=SCREEN ADDR ) 

SUBR BUMPLAZ A I NR, A VDDXL X STX, VXH X A LDX, A VDDXH X STX 
VSAL X L LDX, VSAH X H LDX, L VDDYL X STX, H VDDYH X STX, RET 
HEX F = DRL 

SUBR SLASER <ASSEMBLE PQTB X C LDX, 0 PQTB X MVIX, 

C A MOV, A ANA, KILLOFF JZ, 

VDDXL X A LDX, A ANA, ©=, IF, BUMPLAZ CALL, THEN, 

A LDX, A ANA, ©=, IF, VDDXL X A LDX, S C” J , 

PQSRH PQS 


VDDXH X 
©=, IF, 
ELSE, C I 
VDDXH X i 
VDDYL X i 
LABEL DRL 
L VDDYL 
THEM, KIL 


MOV 


T->f\ y 


RESX n ELSE , BUHPL 

.Aid wMjLL 3 ' ii 

A ? 

p 0. < $ IF 3 C A D D ^ 

A B XOV r TFT 

7 

„ A VDDXH X STX ? 

‘- 1 A A M W 

iL, •&’ H Ii U V o .1? 

\ rT: T 

v L D X ? 



X Xv 7. * DRL -D JN2> 



YH X STX j- 
SSEMB* E ^ RFC T HA! 

_^ 












H-Block 159- 

! ( LASER ANIMATION AND VECTOR START ROUTINE > 
i HEX 

iDAT A LASERA ASM SLASER SETR NULPAT SETF 4 SWAIT 

!SUBR LSHOT DI, VXL Y L LDX, VXH Y H LDX, H PUSH, 

IVYL Y L LDX, VYH Y H LDX, 05@0 D LX I, D DAD, H PUSH, 
!LASERA H LX I, H PUSH, 

|0 H LX I, H PUSH, 

!0A2 H LX I, H PUSH, 
iXYVSTART UMP, 

{DECIMAL —> 


H-Block 1S0- 

! ( CHECK FORMATION STATE VARIABLE AND EITHER FIRE OR REVECTOR > 
{SUBR 2APF0RM < FREEZE VECTOR POINTED AT EY IX ) 

{A XRA, A VDXL X STX, A VDXH X STX, A VDYL X STX, A VDYH X STX, 

! RET, 

j 

{SUBR FCHECK M A MOV, A ANA, ©=, IF, 

!A INR, A M MOV, C LASER SHOOTER ) DI, 
iPGSRH POS Y EITX, 0<>, IF, ZAPFORM CALL, 

IVXH X A LDX, A INR, A E MOV, 0 D MV I, D PUSH, ( TIME STUFF ) 
{LSHOT CALL, L2SC0RE H LXI, MBS Y LXIX, pmusic CALL, D POP, 
{THEN, ELSE, A XRA, A M MOV, FMOVER CALL, 

{THEN, RET, 

{DECIMAL —> 


t-B1 ock 1 SI- 

{( FORMATION MOVE CHECK ROUTINE ) 

{F= NCI F = NC2 

{HEX CODE FMC <ASSEMBLE 

{X PUSHX, Y PUSHX, B PUSH, 

{TIMER1 LDA, A ANA, NCI JRNZ, 4 FI LIYD, 

ITBVi LIXD, 1000 D LXI, FSV1 H LXI, FCHECK CALL, TIMER! SDED, 
{LABEL NCI TIMERS LDA , A ANA, NC2 JRNZ, 4 FS LIYD, 

STBV2 LIXD, 480®' D LXI, FSV2 H LXI, FCHECK CALL, TIMERS SDED, 
' LABEL NC2 

! 8 POP, Y POPX, X PCFX, HEX" ASSEMBLE> 

{DECIMAL —> 
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+-Block 162- 

( ANIMATION LIST FOR FIREBASE STUFF ) 

SUBR ATFINTER CKATRS CALL, < 0< >, IF, INVADERSLEFT LDA, A DCR 
INVADERSLEFT STA, THEN, ) EXPLODEFB CALL, 

X PUSHX, TBV1 LIXD, ZAPFORM CALL, 

TBV2 LIXD, ZAPFORM CALL, X POPX, RET, 

HEX DATA ATFFBA ASM ATFINTER SETI 2005 E005 SETDDC PLAYERANIM 
AUMP DECIMAL —> 


-Block 163- 

< ATTACK FIGHTERS COLORS AND WAIT ROUTINE > 

HEX 

DATA ATFCOLORS 7 B, 7D B, 0B B, 5A B, 7 B, 7D B, 0B B, 5A B, 
F= NYD F = YWD F= SAL 

CODE SCANARRAY <ASSEMBLE EXX, H POP, X PUSHX, 5 B MV I, 

LABEL SAL M E MOV, H I NX, M D MOV, H I NX, 

D PUSH, X POPX, POSRH PQS X BITX, 

©< >, IF, ASFLOK VAUXS X BITX, NYD JRZ, THEN, 

SAL DJNZ, 1 H LXI, YWD JMPR, 

LABEL NYD 0 H LXI, 

LABEL YWD X POPX, H PUSH, EXX, NEXT ASSEMELE> 

: ATFWAIT BEGIN BMS 0 FI SCANARRAY 0 F2 SCANARRAY AND END 
SHUTUP ; DECIMAL —> 


33 MISSION ! 


-Block 164- 

C INITIALIZE ATTACK FIGHTERS GAME ) 

HEX : INITATF 0 FLOOD INITMISSIONRAM 
DRAWMI SSI ONSCREEN 

100 5000 408 A" ATTACK FIGHTERS" COUNT SFOST 
0 PINTERFLAG 5 PINTER PHASINTR ! ' ATFWAIT REINI' 

1 FSV1 ! i FSV2 ! 

ATFFBA FEAN IM ! ACTFB 
GETNODE DUP PV1 ! © SWAP ! 

38 ATTACK!IMER ' i© TIMERt ! 48 TIMERS I ; 

{DECIMAL —> 










w co ^ m 


1-Block 165- 

i( SCAN LOOP AND STARTUP ) 

j: ATFSCAN FIRECHECK PHASORINTERCEPTCNECK CKKAMI FI 
i BMS PLAYERHITCHECK ; 

! HEX : ATF 1NITATF STARTFORMATIONS 5 ATFCOLORS FUC 
IEMUSIC E2MUSIC 

i BEGIN ATFSCAN ENDOFFRAME @ END 
! 5 FDB i 

' HEX AS GSAB U! J ATF GSAB 1+ U! 


! : BEG INGAME 
1 DECIMAL .• S 


51 ART < 


KILLSACTOR 


GSAB 


i 

s 






H®0!( 
101 i( 

102! < 

103 i £ 

104 |( 
105IC 
106! £ 

1 07 1C 
1 08 ! C 

109 i £ 

110 ! £ 

111 i £ 

112 i £ 

150 IC 

151 K 
1 52 i £ 
153 i £ 
*154! f 
1 55 ! ( 

156 ! £ 

157 ! ( 

158 ! ( 

1 59 ! £ 

160 ! C 

161 !£ 

1 62 ! ( 

1 63 i £ 

1 64 ! £ 
165 | £ 

16 6 j £' 


BEGIN MISSION 4 GOODIES ) 

TIE FIGHTER 1 ) 

TIE FIGHTER PATTERN 2 > 

TIE FIGHTER PATTERNS 3 AND 4 ) 

X WING FATTERN 1 ) 

X WING PATTERNS 2 AND 5 > 

X WING PATTERNS 3 AND 4 > 

PHOTON TORPEDO PATTERNS ) 

PHOTON TORPEDO PATTERNS CONTINUED ) 

FINAL PHOTON TORPEDO DISINTEGRATION PATTERN ) 

SHIP SPIRAL- SF, FIREELAST FE ) HEX 
MISSIONS- STAR SERIAL SOUND ) HEX 
MISSIONS- BLACK HOLE EMERGENCE > HEX 
MISSION FOUR - SPACE WARP ) 

PHASOR INTERCEPT CHECK ROUTINE > 

CHECK WITH INTERCEPT WITH FIREBASE - IF SO KILL IT ) 
CHECK FOR ATTACKER - FIREBASE INTERCEPT ) 

COROUTINE GOODIES ) 

POINT WRITE ROUTINE STUFF ) 

POSITION TABLE FOR ATTACKERS LEFT DISPLAY > 

SPIRAL ANIMATION SUBROUTINES ) 

ANIMATION SEQUENCES TO START SPIRALING ATTACKERS ) 
RETURN SPIRAL STATUS EASED ON SKILL FACTOR ) 

COMMAND TO START SPIRALING ATT ACKERS ) 

ANIMATION FOR PROTON "ORPEDQ ATTACK ) 

CHECK PHOTON "OFPEDOS I 

COLOR T A R L ~ — HA IT FOR ATTACK TO END ) 

L T N E p p R ~ r -~ n fi «» i; — - jsj p > 

INITIALIZE MISSION 4 - DOGFIGHT IN THE'SPACE WARP ) 
SCAN LOOP AND STARTUP 5 





oi ^ ^ ® to co ~d a} tn ^ u w ® m-^fjw-*®<3oo'vi<nui-f‘'UN*- i s> tn i* u n ** © to co '4 tn ui -e* gj <\) 


-Block 100- 

C BEGIN MISSION 4 GOODIES > 
DATA GSAE 0 B, @ , 

— > 


101- 

B, QUAD 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A, 

A 


102 - 

( TIE FIGHTER PATTERN 2 ) 
DATA TF2 3 B, 3 B, QUAD 


j 

1111 

1110 

000© 

A 

! -N.- 

©002 

0000 

0000 

A 

| Ac 

1022 

2010 

0000 

A 

I ~ 

0023 

2000 

0 0 0 0 

A 

i 

0223 

2200 

0000 

A 


0023 

2000 

0 @ @ 10 

A 


1022 

201 0 

0000 

A 


0002 

0 0 0 0 

0000 

A 

i irtyi 

1111 

•1 < -St 

r A fy'" 

A 


1 DEC IMAL —> 

i! 


■i -B 1 ock 

!( TIE FIGHTER 1 


i DAT A TF1 3 B 

, 11 

1 cl*. 

1111 

1111 

1000 

1 CSC 

0000 

2000 

0000 

I 

0100 

2001 

0000 

S 

0002 

2200 

0000 

1 J1W 

0022 

3220 

0000 

j ■'V 

0022 

3220 

0000 

■ ^ 

0022 

3220 

@000 

1 ~ 

0002 

220© 

0000 

1 *lc 

01 00 

2001 

000© 

1 ^ 

0000 

2000 

@0@@ 

j 

1111 

1111 

1 000 


DECIMAL —> 

+-B 1 ock 


! 

i 

i 










til P- GJ W 


0 

1 

2 

3 

4 

5 

6 
7 
S 
9 

10 
11 
12 

13 

14 

15 

0 

1 


14 

15 

0 

1 

2 

O 

W 

4 

5 
c 


9 

10 
1 i 


c 

TIE 

-i3 1 OCK 

FIGHTER 

DATA TF3 2 B 

J 

Af 

1111 

100© 

A 

A/ 

0020 

0000 

A 

•V 

0222 

0000 

A 

■'V 

0232 

0000 

A 

A/ 

0222 

0000 

A 


0020 

0000 

A 

'V 

1111 

1000 

A 


1. Q3- 


3 AND 4 ) 


7 B } QUAD 


DEC I HAL DATA TF4 
~ 1110 0000 A 
0200 0000 A 
^ 0200 0000 A 
~ 1110 0000 *• 
DECIMAL —> 


2 B, 4 E, QUAD 


-B1ock 

( X WING PATTERN 
DATA XW1 4 B, 11 


104- 

1 ) 

Bi QUAD 


2 ! ~ 

2200 

@000 

0220 

@00© 

A 

3!~ 

2200 

0000 

022© 

0000 

A 

4 | ~ 

0010 

0100 

1 00© 

@00© 

A. 

5 ! - 

0001 

@101 

©00© 

@000 

A 

G ! " 

0001 

1111 

0©0© 

0000 

A 

7 ! ~ 

2011 

3331 

1©2© 

@000 

A 

& ! 

0001 

1111 

000© 

0000 

A 

9 ! ~ 

0001 

0101 

00©0 

©00© 

A 

10 i ~ 

001 0 

0100 

1000 

0000 

A 

1 1 j A, 

2200 

@000 

0220 

0000 

A 

12 ! - 

2200 

0000 

©22© 

0000 

A 

13!DECIMAL 

.-> 





-Block 105- 

( X WING PATTERNS 2 AND 5 
DATA XW2 3 B, S E, QUAD 
~ 2200 0002 200 © 

~ 2200 @002 2©@0 A 
0010 1010 000© A 


~ 0001 
~ 2011 
000 1 
001© 
220 © 

~ 2200 
DECIMAL D; : 
' v 202® ©0 
010 0 0 0 i 

'*r 202 0 0 0 ^ 

DECIMAL — 


1100 000 © 
3110 2@@© 

1100 0000 

10 I® ©0© '' 

AifhOiO -~’r ■ ■ 


'A 


g, QUAD 
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+-Block 106- 

( X WING PATTERNS 3 AND 4 ) 

DATA XW3 3 B, 7 B, QUAD 
~ 2000 0020 0000 A 
0101 0100 0000 ^ 

0011 1000 0000 *''' 

- 2113 1120 0000 - 
" 0011 1000 0000 A 
~ 0101 0100 0@0C 
2000 0020 ©000 

DECIMAL DATA 'XW4 2 E, 5 B, QUAD 
2000 2000 ' v 
~ 0111 0000 A 
~ 2131 2000 A 
" 0111 0000 A 
~ 2000 2000 
DECIMAL —> 

-Block 107- 

< PHOTON TORPEDO PATTERNS > 

DATA PT1 1 B, 1 E, QUAD 
1000 E, 

DECIMAL DATA PT2 2 E* 3 B, QUAD 
0300 0000 
^ 3130 0000 ^ 

0300 0000 

DECIMAL DATA PT3 2 


4 B, QUAD 


~ 0330 000© A 
~ 3113 0000 * 
3113 ©000 A 
~ 0330 0000 A 
DECIMAL —> 


-Block 10S- 

< PHOTON TORPEDO PATTERNS CONTINUED 
DATA PT4 2 E, 5 B , QUAD 
** 0333 000© A 


" 3111 
~ 31 11 

- 3111 
~ ©333 
DEC I HAL 

fe? 3 0 0 

- 3101 
011 i 

* v 0031 
'*■ 30@3 
DECIMAL 


3000 - 
3000 ' 
3000 ' 
0000 ' 

DATA 
1 © © 0 J 
© © © © J 
5^1 t?Sl ' 

l © @ © * 

0 \ tfps j 


pi 


5 B, QUAD 











0 

1 

2 

3 

4 

5 
S 
7 
S 
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11 
12 
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15 
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1 

2 

3 
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9 
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12 
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14 
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12 
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14 
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+-Block 109- 

( FINAL PHOTON TORPEDO DISINTEGRATION PATTERN ) 
DATA PTG 2 B, G B, QUAD 
0100 @000 ^ 

~ 0001 0000 A 

~ 0300 1000 A 
~ 1030 0000 ^ 

~ 0001 000© A 
~ 3000 3000 A 
DECIMAL —> 


H-B1 ock 11 ©- 

( SHIP SPIRAL- SP, FIREBLAST FB > HEX 
DATA SPSCORE ASM 57 MASTER 1 -5 57 0C RAMBLE 1 COUNTLIMITS 
1 -2 3F MOVESOUND 

99 ABVOLS 1A MCVOLS #C3 *E3 #FS3 TONES PLAY QUIET 
: SP E2MUSIC SPSCORE B2MUSIC ; 

DATA FELSCORE ASM *Ei £F2 *G2 TONES 1 -2 3F MOVESOUND 
40 MASTER 1 -2 A0 2© RAMBLE 2 COUNTLIMITS 20 NOISE 
99 ABVOLS 1A MCVOLS PLAY QUIET 
; FBL E2MUSIC FELSCORE B2MUSIC } 


-Block 111- 

C MISSIONS- STAR SPRIAL SOUND ) HEX 
DATA ST1SCORE ASM 

#E2 #B2 #FS3 TONES 1 1 0 MOVESOUND 0C NOISE 
40 MASTER 2 -1 4© 10 RAMBLE 1 COUNTLIMITS 

88 ABVOLS 18 MCVOLS PLAY 1 -1 1 MOVETB RERAMBLE 2 COUNTLIMITS 
PLAY 1 F2 2 MOVES-! t GHLI M 1 1 2 MOVESTEP © NOISE 

RERAMBLE 2 COUNTLIMITS PLA V $ 2 4 MGVES7E# £ COUNTLIMITS 
i RFRAMB1 ~ F' A v A - — — 

DATA S72SC0PS *3"' 

J *G1 *B2 MAS TONES i -1 3F MOVESOUND OC NOISE 

i s . O' f «iac7-~ -p ■■ t> a s_ -■ ;V;YL¥'M”TS 

> ss ABVOLS i£ MCVOLS FLAY 1 -1 1 M0VET3 RERAMBLE 2 COUNTLIMITS 

i play i ,fz 2 M'0ve:~::cn:„im 112 ho vested 0 noise 

1 RERAMBLE 2 COUN"L "" 11 TS PLAY 1 2 4 MCVESTEP S C0UM T L 1 MI T~ 

' RERAMBLE PLAY QUIE~ 

I : ST ST 1 SCORE P MUSIC ST2SC0RE P2MUSIC ? DECIMAL ;S 










©COCO'vICritXlfrQfO^O 


1 

m 2 

3 

*~4 

5 

G 
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12 
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) HEX 


1 4 C0 10 
MOVENOISE 
B0 1 -8 0 
7© 1 -8 0 
7© 1 -8 © 


1 COUNTLIMITS PLAY QUIET 


-Block 112- 

< MISSIONS- BLACK HOLE EMERGENCE 
DATA BH1SCORE ASM 
11 40 £2 TONES 10 
2 1 0 MOVESOUND 0 
C0 MASTER 1 -8 C0 
8© MASTER 1 -8 8© 

80 MASTER 1 -8 80 
2 MASTER 3 1 FF 2 
DATA BH2SC0RE ASM 
13 3© 50 TONES 1© 

2 1 0 MOVESOUND © 

C0 MASTER 1 -8 C© 

80 MASTER 1 -8 8 © 

80 MASTER 1 -8 80 
2 MASTER 3 1 FF 2 
: BH BH1 SCORE PMUSIC 

-Block 150- 

C MISSION FOUR - SPACE WARP ) 

TIMER3 C= LETIMER 

0 V= AV ( ATTACKER VECTOR ADDRESS ) 

0 y= ATTACKERSLEFT < NUMEER OF ATTACKERS 
— > 


MASTER 

1 4 E0 

2 RAMP 
2 RAMP 
2 RAMP 
RAMBLE 

MASTER 

1 4' B0 

2 RAMP 
2 RAMP 
2 RAMP 
RAMBLE 


RAMBLE 1 COUNTLIMITS 
88 ABVOLS 1C MCVOLS PLAY 
MOVENOISE 1 COUNTLIMITS PLAY 
MOVENOISE 1 COUNTLIMITS PLAY 
MOVENOISE 1 COUNTLIMITS PLAY 


1 4 C© 10 
MOVENOISE 
B© 1 -8 0 
7© 1 -S © 
70 1-80 


RAMBLE 1 COUNTLIMITS 
88 ABVOLS 1C MCVOLS PLAY 
MOVENOISE 1 COUNTLIMITS PLAY 
MOVENOISE 1 COUNTLIMITS PLAY 
MOVENOISE 1 COUNTLIMITS PLAY 


1 COUNTLIMITS 


BH2SC0RE P2MUSIC 


PLAY GUIE~ 
DECIMAL 


FOR 


4 ) 


11 

12 
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14 

15 
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14 

15 


-Block 151- 

< PHASOR INTERCEPT CHECK ROUTINE ) 
DECIMAL F= INTLGG 
SUER M4PINTER <ASSEMBLE 
PINTERFLAG LDA, A ANA , RN2 , 

AV LIYDj CHECKVEC CALL/ R2/ 

PQSRH PGS Y RESX/ PQSDW PQS Y SETX, 


VYL Y L 
VXL Y L 
VRACK Y A 
1 A MV! , 

PINTERFLAG 

verSse CAL. 
F? El T b 


LDX / 

LDX, 

a f r> v 


> p N1 


VYH 


.DX 


, PINTER'' 

/ PINTER? 

; A r 


SHLD j 

SHLD j 


■ H 
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—-Block 152- 

< CHECK WITH INTERCEPT WITH FIREBASE - IF SO KILL IT 
SUBR FBHCHECK 0 FBVECTOR Y LXIX, CHECKVEC CALL, RZ, 

X PUSHX, 0 FBVECTOR X LXIX, EXFLOBEFB CALL, 

X POPX, PQSRH PQS X RESX, PGSDW PQS X SETX, 
verase CALL, 

1 A MV I 
DECIMAL 


FIREBASE INTERCEPT ) 


-Block 153- 

( CHECK FOR ATTACKER 
DECIMAL 

SUBR DIDIH1TPLAYER 
PINTERFLAG LDA, A ANA, RNZ, 

FBHCHECK CALL, RZ, 

VYL X L LDX, VYH X H LDX, PINTERY SHLD, 
VXL X L LDX, VXH X H LDX, PINTERX SHLD, 
VRACK X A LDX, PINTERN STA, 

1 A MV I , 

PINTERFLAG STA, 

RET, 

— > 


4-Block 154- 

< COROUTINE GOODIES ) 

0 V= LEPC 

CODE LETCK LETIMER LHLD, H A MOV, L ORA, 

0=, IF, LEPC LHLD, LEPC SBCD, L C MOV, H B MOV, 
THEN, NEXT 


CODE LWAIT H POP, LETIMER SHLD. 

L C MOV, H B MOV, NEXT 


LEPC LHLD, LEPC SBCD, 


8 

9 

1® 
11 
12 

13 

14 


: SETLEPC 1+ 
DECIMAL —> 


■C 
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H-Block 155- 

( POINT WRITE ROUTINE STUFF ) 

HEX 

£ SUBROUTINE TO DRAW A POINT ) 

SUBR UPPOINT DI , HA NOV, C0 CPI, RNC, D A MOV, 50 CPI, RNC, 
C A MOV, RRC, RRC, A B MOV, 20 C MV I, £ FUDGE B ) 
relabs CALL, C A MOV, MAGIC OUT, B M MOV, ( WRITE IT ) 

El, RET, 


CODE POINT EXX, B POP, H POP, D POP. 
DECIMAL —> 


UPPOINT CALL, EXX, NEXT 


-Block 156- 

£ POSITION TABLE FOR ATTACKERS LEFT DISPLAY ) 

{ : XT } 64 * , { } > { : YT } 256 * , { ; > 

TABLE ATXPOS 206 XT 205 XT 203 XT 200 XT 197 XT 135 XT 
194 XT 195 XT 137 XT 200 XT 203 XT 205 XT 203 XT 202 XT 
200 XT 198 XT 197 XT 198 XT 200 XT 202 XT 
TABLE ATYPOS 100 YT 103 YT 105 YT 106 YT 105 YT U 


YT 100 YT 


37 YT 35 YT 34 YT 35 YT 37 YT 100 YT 102 YT 
100 YT 98 YT 97 YT 98 YT 
: SHOWATTACKERS ATTACKERSLEFT @ 0 DO 
I ATXPOS @ I ATYPOS t 2 POINT LOOF ; 

DECIMAL —> 


103 YT 102 YT 


-Block 157- 

C SPIRAL ANIMATION SUBROUTINES > 

DECIMAL DATA GORFR ASM G0RF1 SETP 90 SWAIT G0RF2 SETF 

G0RF3 SETP 70 SETP 60RF4 SETP 60 SWAIT G0RF5 SETP 50 

GORF SETP FOREVER 120 SWAIT EVERFOR 

DATA XWF ASM XW5 SETP 110 SWAIT XW4 SETP 30 SWAIT 

XW3 SETP 80 SWAIT XW2 SETP 7© SWAIT XW1 SETP 

FOREVER 12© SWAIT EVERFOR 

DATA IFF ASM 

NULPAT SETP SPWRITE S~TR DID’’-!!TPLAYER SET I 
1 SWAIT 3 GORFR PANDOTDO " XWF RANDOMBO 
TF4 SETP 12© SMAIT ~~3 S E 7P I I © S7A I? 

TF2 SETP 3© S7A''" ~"f. SET!" 1 "OREVET IT© SWAIT EVERFOR 
DEC I HAL 


80 SWAIT 
SWAIT 


! _ 

I! 


\ 












0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 


-—Block 158- 

( ANIMATION SEQUENCES TO START SPIRALING ATTACKERS ) 


HEX 

DATA 

TFS1 

ASM 

FE5F 

0319 

SETDC 

000§ 

0604 

SETDDC 

TFF 

A JMP 

DATA 

TFS2 

ASM 

FESC 

@339 

SETDC 

0806 

0604 

SETDDC 

TFF 

AUMP 

DATA 

TFS3 

ASM 

0@©E 

FCFE 

SETDC 

@806 

0604 

SETDDC 

TFF 

A JMP 

DATA 

TFS4 

ASM 

0@&9 

FCBF 

SETDC 

0006 

0604 

SETDDC 

TFF 

A JMP 

DATA 

XWS1 

ASM 

FF1 F 

046F 

SETDC 

0006 

0602 

SETDDC 

TFF 

A JMP 

DATA 

XWS2 

ASM 

FEBA 

0S7D 

SETDC 

0007 

0603 

SETDDC 

TFF 

A JMP 

DATA 

XWS3 

ASM 

FEDS 

FC@5 

SETDC 

0006 

0601 

SETDDC 

jpp 

A JMP 

DATA 

XWS4 

ASM 

FF3A 

0 6 A1 

SETDC 

@807 

0603 

SETDDC 

TFF 

ft JMP 

TABLE 

: SPTB 

:L TF 

SI , 

TFS2 

, TFS3 

1 i 2 a 

34 , 

XWS1 , 

XIHS 

2 , 

XWS3 

, XWS4 , 

XWS4 

, XWS4 , DECIMAL 


- 



-Block 159- - — 

( RETURN SPIRAL STATUS BASED ON SKILL FACTOR ) 

( ON SECOND PASS AND BEYOND SPIRAL IN BOTH DIRECTION ) 

< STATUS BIT IS H.O. OF INTERCEPT MASK BYTE ) 

HEX 

: PICKDIR SKILLFACTOR @ IF 2 RND 0= IF 80B2 ELSE @E2 THEN 
ELSE 0B2 THEN } 

DECIMAL —> 


+ -Block 160- 

( COMMAND TO START SPIRALING ATTACKERS ) 

1 ! HEX 

2iCODE ACKSUB Y PU5HX, AV LI YD * 0 H LXI, 

3'PGS Y A LDX, 2 CPI, CY, IF, 

4!A ANA, 0=, IF, PQS Y INRX, LDAR, IF AN I, 1© ADI, 

5!ATTACKTIMER STA, ELSE, ATTACKTIMER LDED, D A MOV, E ORA, 
6!0=, IF, H I NX, THEN, THEN, 

7 1 THEN, Y FOPX, H PUSH, NEXT 
8!DECIMAL 

95; A7TACKCHECK ACXSU7 "P 0 IF ATTACKERSLEFT 1—! 

101 ATTACKER3LEF7 f ft~XF03 0 A7”AGX”RSLEF7 0 ft r YPOG X 2 
11 S SP 17 E 0 M B 71X E P ' 

1 3 j THEN THEN * DEC 7 . XftL — > 


r x v ADERSLEFT 


14 | 
1 5 | 











0 

1 

2 

3 

4 

5 

e 

7 

a 

9 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 
7 

a 

9 

10 
11 
12 

13 

14 

15 


.j-5 l ock 1 SI- 

C ANIMATION FOR PHOTON TORPEDO ATTACH ) 
DATA PTA ASM 

FBHCHECK SETI XIWRITE SETR 
PT1 SETP 15 SWA IT 
PT2 SETP 15 SWA IT 
FT3 SETP 20 SWA IT 
PT4 SETP 40 SWA IT 
PT5 SETP 10 SWA IT 
SWA I T 
1 SWA IT 


1 

2 

3 

4 

5 

6 
7 

a 

9 

10 
1 1 
12 


10 


PT6 SETP 
NULPAT SETP 
AHALT 

DECIMAL —> 


+-Block 1S2- 

C CHECK PHOTON TORPEDOS ) 

F= AVCD CODE AVCK <ASSEMBLE Y FUSHX, 0 H LXI, 

EOMBTIMER LDED, D A MOV, E ORA, AVCD JRNZ, AV LI YD, 

PQSRH PQS Y BITX, AVCD JRZ, PQSDE PQS Y BITX, AVCD JRNZ, H 
DI , 

LABEL AVCD Y POPX, H PUSH, NEXT ASSEMBLE> 

( VXL 13 VYL 19 ) 

: PT CHECK AVCK IF 

SKILLFACTOR @ IF 60 RND 20 ELSE 120 RND 70 THEN 4 EOMBTIMER 
AV @ 13 + @ AV # 19 + @ 

13 FBVECTOR13 FBVECTOR t 
PTA 64 162 VMOVE FEL 
THEN ; 

DECIMAL —> 


163- 

WAIT FOR ATTACK TO END ) 


-B1ock 

( COLOR TABLE 
HEX 

DATA M4FEA ASM NULRET SETI ICO5 E0O5 SETDDC PLAYERANIM AJMP 
DATA M4C0L0RS 7 B, 7D B, ©B B, 5F B, 7 B, 7D B, OB B, 5F B, 

( WAIT FOR ATTACK 


{ : WAI TOUT AV BEGIN BM 
i DECIMAL —> 


ND ROUTINE ) 

AV @ SO AND ©= END SHUTUP % 


14 | 

15 ! 


I NX, 


! 0 










oi ^ to w •-» & co co xj tn -p>- to ro 


-Block 164- 

( LINE EFFECT COROUTINE > 

HEX 

: LETHREAD GENLINE LSTART 3200 6400 SETLXY 
3200 SVCX ! 6400 SVCY ! 

8 LWAIT NULRET LI NIT ! A© LWAIT 
GENLINE LINIT ! 

30 ATTACKTINER ! 48 BOMBTI HER ! 

10 10 FF FF SETSF BEGIN -1 LWAIT 0 END j 
DECIMAL —> 


10 50 50 SETSF 


-Block 165- 

( INITIALIZE MISSION 4 - DOGFIGHT IN THE SPACE WARP ) 

HEX : INITM4 0 FLOOD INITMISSIONRAM 34 MISSION ! 

DRAWMISSI ONSCREEN 100 5000 408 A“ SPACE WARP” COUNT SPOST 


SKILLFACTOR @ IF 14 2 ELSE 0C 1 THEN SPIR 
ATTACKER3LEFT ! 0 PINTERFLAG ! M4PINTER P 
100 INVADERSLEFT ! 

' WAI TOUT AV REINIT ! SHOWATTACKERS 
M4FBA FBANIM ! ACTFE 
GETNODE DUP PV1 ! 0 SWAP ! 

GETNODE DUP AV ! 0 SWAP ! 

-1 ATTACKTIMER ! -1 BOMBTIMER ! © LETIMER 
' LETHREAD SETLEPC ; 

DECIMAL —> 


0C 1 THEN SPIRALRATE ! 
G ! M4PINTER PHASINTR 


-Block 166- 

C SCAN LOOP AND STARTUP ) 

: M4SCAN LETCK UPDATEALL FIRECHECK ATTACKCHECK PTCHECK 

FLAYERHITCHECK 

PHASORI NTERCEF'TCHECK EMS j 

M4WAIT WTIMER ! BEGIN LETCK UPDATEALL PHASOR INTERCEPTCHECK 
BMS WTIMER « 0= END ; 

: M4 INITM4 EMUSJC E2MUSIC ST 5 M4C0L0RS FUC 

BEGIN M4SCAN EMBOFFRAME @ END 
GAMEOVER © IF 60 S14WAIT THEN 5 FDB $ 

HEX 

A5 GSAB U! •' M4 GSAB 1-f Ul 


<4 sg ft g 


: BEG INGAME ST ART GAME SKILLFACTOR ! GSAB 1+ 6 DOIT 
DECIMAL 5S 


S 

5 

B 










100K 
101 !£ 
*1 02 i C 
1 03 IC 
104 !( 
1 05 i £ 
108 i ( 
1 07 1 £ 
1 08 i ( 


109 

110 
11 1 
112 

113 

114 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 
1S0 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 


SAME START ADDRESS BLOCK ) 

MOM ) DECIMAL DATA MUTHA 6 
MORE MOM ) @000 B, 0000 B, 

MORE MOM ) 0000 B , 0022 B , 1123 
LAST MOM ) 2320 B, 0000 B, 0111 
PHASOR BURST HIT PATTERN ) 
FIREBALL PATTERNS 1 AND 2 ) 
FIREBALL PATTERN 3 ) 

FIREBALL PATTERN 4 ) 

FIREBALL PATTERN 5 ) 

ANIMATION SEQUENCE FOR FIREBALL 
BACKGROUND SHIP FLYING - BSF ) 
SHIP EXPLOSION - SE ) HEX 


B, 64 B/ QUAD 0 
0111 B/ 2221 B, 


B, 
B / 


3333 
111 1 


B , 
B i 


, 0 B/ 1110 B, 
1100 E, 0 B, 
2110 B, 3000 B , 
1100 B, 0 B, 


0 


> 

HEX 


SCORE -FBS, SHIP 


SHOTOFF - SO 
> HEX 
) 

) 

PATTERN > 


) HEX 


FIRE BALL 

MISSIONS- BLACK HOLE EMERGENCE 
MISSION 5 - ATTACK MOTHER SHIP 
MOTHERSHIP EXPLOSION ANIMATION 
SUBROUTINE TO WRITE MOTHERSHIP 
MOTHER SHIP ANIMATION ) 

CHECK FOR FORCE FIELD INTERCEPT ) HEX 
FORCE FIELD INTERCEPT CHECKER CONTINUED ) 

HAVE PHASOR BURST END WITH A BANG ANIMATION ) 

M5 PHASOR INTERCEPT CHECK ROUTINE ) 

SUBROUTINE TO SHOOT A FIREBALL ) 

KAMIKAZE ATTACK STARTER j 

CHECK TIMERS AND SHOOT FIREBALL IF APPROPRIATE 
CHUNK SUBROUTINES AND TABLES ) 

BLOWOFF - START A CHUNK FLYING OFF - DO PATTERN 
BLOWOFF - CALCULATE X COORDINATE AND DELTA ) 

Y COORDINATE PROCESSING ) 

INITIALIZE ALL THE FARMS FOR INTERRUPT ) 

CHECK FOR PHASOR - MOTHER INTERCEPT AND BLOWOUT 
PHASOR - MOM - CHECK FOR REACTOR HIT ) 

PHASOR - MOM CONTINUED ) 

TRY TO SEND OFF A FRAGMENT ROUTINE ) 

EXPLODE THE MUTHA SHIP > 

CHECK FOR PHASOR HIT MOTHER SHIP ) 

ANIMATION LIST FOR FI REBASE + COLOR TABLE ) 
INITIALIZE MISSION 5 - DESTROY THE MOTHER SHIP J 
SCAN LOOP AND STARTUP I 


CHANGES ) 


192 

193 

194 

195 

196 

197 
1 38 
1 99 


j..*j q <-<2 j rjs 

MORE MO' 
MORE MC 
LAST MO"' 
PHASOR : 
F I REBAL:, 
F I RES A L". 

s_ , ^ . - 


■tf , 


”V A - 


T “3 ) 


5, 6A 3, QUAD O , A E, &&&0 B, 0 , 

'50c’LL B f 3.- LRAO B? 0 B* 

' :.r ' - ' . A?iL©' B, TOO© B , 

3 .s LOLL T » RLAOi A A. 


'■-•V ) 






-!-Block i©0- 

®i< GAME START ADDRESS BLOCK ) 

11 DATA GSAB ® Bj 0 , 

2 ! — > 

3! 


41 

5! 

6 ! 

71 

Si 












9 ! 












10 i 












11 | 












12 ! 












13 i 












14 1 












15 1 




■ 








H-— 

— 

—B1ock 

101- 

— 

— 






0i ( MOM ) 

DECIMAL 

DATA 

MUTHA 6 

B , 

64 B 

, QUAD 

0 

, © B, 1110 E 

1|0000 

B t 

0000 

E, 

@000 

B, 

0100 

B, 

0 B, 

@ B , 



2i0000 

B , 

0000 

B, 

0000 

B, 

0100 

B, 

0 B| 

© E, 



3 i 0000 

B , 

0000 

B, 

0000 

E, 

1110 

B, 

0 B / 

0 B, 



410000 

B, 

000© 

B , 

0000 

B, 

1 110 

Bi 

© B, 

© B, 



510000 

B , 

0000 

B, 

0000 

£> jp 

Hi® 

B, 

0 B, 

© B, 



6 1 0000 

B, 

0000 

B, 

@©@@ 

B / 

1110 

E, 

0 B, 

0 B, 



7 1 0000 

E, 

0000 

B, 

@@@® 

B > 

1 1 10 

B, 

0 B j 

0 E » 



S 1 000® 

B, 

©©©© 

B, 

0000 

B, 

1110 

E, 

© B, 

0 E, 



910000 

B, 

0000 

E, 

@@@© 

ts 

*L? JP 

1110 

B / 

© E, 

0 B, 



1 0 1 0000 

E, 

©00@ 

B, 

0@©@ 

3 ; 

111© 

E j 

© B / 

0 B / 



11 10000 

B, 

0000 

B, 

0001 

B, 

1111 

E jp 

0 B / 

@ Bi 



1210000 

B, 

0000 

B, 

0001 

B, 

1111 

E, 

0 B, 

0 B, 



1310000 

B , 

@00© 

B , 

001 1 

E j 

1211 

Bi 

1 000 

E, 0 

B, 


1410000 

B, 

0000 

B, 

001 1 

B, 

1211 

E jp 

1 000 

B, 0 

E, 


1510000 

E, 

0000 

E , 

001 1 

3B j 

2221 

B, 

1000 

B, @ 

B, 


+ - 

— 

-B 1 ock 


102- 

— 







01 ( MORE 

MOM ) 

0000 B I 

@00® El 

©111 B, 

2221 

B, 

1100 Ei 0 B, 

110030 

B / 

0030 

E, 

©1 1 1 

E, 

2221 

B, 

1100 

B , 0 

Ei 


2 1 0003 

B / 

0300 

E, 

011 2 

B / 

2222 

B, 

1 1 00 

E, 0 

B, 


3 1 @000 

B , 

300© 

B / 

@112 

Bi 

2222 

B, 

1 1 @0 

B, © 

B, 


4 1 @000 

B, 

0300 

B , 

1112 

B r 

2222 

B j 

1110 

Bi @ 

E , 


5 1 0@@@ 

B, 

@033 

B / 

1 i 1 2 

■5? 

JW J 

222^ 

B , 

111© 

E jp © 

B, 


6 ! 0000 

3, 

@ @ 0 @ 

IS? 

$ 

*? '3? C? 

ID 

JP 

2222 

T> 

LD jp 

2110 

B . © 

B ^ 


7|0000 

B, 


jH! j? 

1122 

B, 

2222 

ip 

2110 

B s< 0 

B, 


B1©00© 

B, 

©@@@ 

B f 

$ 4* CD CD 

•£-’ jp 

C5 CD C3 "7 

e_i_.e-.dL, 


CD -f 4j fa 

3- 3@ 

@0 

B , 

3 1 @00© 

B , 

0 !?(£?!> 

3 , 

V] -'i *7’ ! -p 

3 

2 .2 2 2 

"D 
-L- J 

31 1 8 


00 

B, 

10 1 ©000 

B, 

0 0 © © 

O 

CD 

3 » 

<dj •?“>, a 

3 jp 

7t 1 1 © 


© © 

B , t 

1 1 I 006© 

B t 

©002 

n 

•qj -;t- c? 

•• .? 

i!& W ™ 

jp 

211 8 

^ n '7' 



12 1@®@© 

B, 

0003 

B 

11 22 

•.* jp 

cr ca -p 

•L-' ; JP 

211 0 

^ 

«l:> j? 

- 

1 3 1 @000 

B , 


B - 

C >" d] 

3 jp 

3333 

3 , 

2.1 1 @ 

’ Is -i 

B ^ 


1 4 1 ©000 

B , 


■ar- 
ir*5 n 

f*. i > CD 

j? 

2 3 2 3 


2110 

^ „ 3 0 

■30 

B , 

151000© 

B i 

©002 

£S .i? 

1 1 33 

CD • 

CD C£j CD d; 

B.? 

2 1 1 @ 

C!? ?> 

00 

B./ 











0 

i< MORE 

MOM > 

0000 B , 

@022 B, 

1123 B t 

3333 

B, 

2110 

1 

1 000© 

B, 

@222 

B, 1123 

Ei 3333 

B, 

2110 

B, 

0 

Bi 


2 

12220 

B, 

2222 

E) 1123 

B, 3333 

B, 

2110 

B, 

0 

B, 


3 

i 2222 

B , 

2222 

B, 1123 

B, 3333 

B, 

2110 

B, 

0 

B, 


4 

\ 2322 

B, 

2222 

B, 1123 

B, 3333 

B, 

2110 

B, 

3000 

Ei 

5 

12322 

B, 

2222 

B s 1123 

Bi 3333 

E, 

2110 

B, 

3000 

Bi 

6 

i 2322 

B, 

2220 

Ei 1123 

Bi 3333 

E, 

2110 

Ei 

3000 

Ei 

7 

I 2322 

B, 

2200 

B , 1122 

B, 3332 

B, 

21 1© 

B i 

0 

B, 


S 

! 2322 

B, 

2000 

B , 1122 

Bi 2322 

B / 

2110 

Bi 

0 

B j? 


9 

12322 

B , 

00®@ 

Ei 1122 

Ei 2222 

B i 

2110 

E, 

0 

B, 


10 

I 2320 

B, 

0000 

Ei 1122 

B, 2222 

B i 

2110 

B, 

3000 

Bi 

11 

1 2320 

B, 

000© 

E, 1122 

Bi 2222 

Bi 

2110 

B, 

3000 

Bi 

12 

I 2320 

B, 

0000 

Ei 1122 

B, 2222 

B, 

2110 

B, 

3000 

Bi 

13 

12320 

E, 

000© 

E, 1112 

B, 2222 

Bi 

2110 

E JF 

0 

Bi 


14 

12320 

B, 

0000 

Ei 1111 

B , 1111 

B, 

1110 

B, 

0 

B, 


15 

12320 

B, 

0000 

E, 1111 

B, 111. 

Bi 

1110 

B, 

0 

B, 



-J- — — — —- 

— 

-B1ock 

104- 








@ 

1C LAST 

MOM ) 

2320 Bi 

0000 Bi 

@111 B, 

1111 

B, 

1100 

1 

1 2320 

B, 

0000 

Ei 0100 

Bi 0000 

Bi 

0100 

B, 

0 

B, 


2 

12320 

B / 

0000 

Ei 01©2 

Bi ©202 


0100 

E 9 

0 

Bi 


3 

1 2320 

B , 

0000 

B, 0102 

B, 0202 

Ei 

0100 

B i 

0 

Bi 


4 

12320 

B, 

©000 

Bi 0102 

Bi @202 

B i 

0100 

Bi 

© 

B f 


5 

12320 

E, 

0000 

B, 0102 

B, 0202 

Ei 

0100 

Ei 

0 

E, 


6 

12320 

B, 

0000 

B i 0002 

Ei ©202 

Ei 

© Bi 

0 

B, 



7 

1 2320 

B, 

©000 

Bi 0002 

B, 0202 

E, 

0 B i 

0 

E, 



8 

12320 

B, 

0 B , 

0 Ei © B 

i 0 B i 0 

B 

t 





9 

1232© 

B, 

0 S j 

0 B i @ B 

t 0 E j 0 

B 

I 





10 

12320 

B, 

0 E, 

© B, 0 E 

i 0 B i 0 

B 

9 





11 

1 232© 

B, 

0 B j 

@ B i @ B 

i 0 B i 0 

B 

f 





12 

1 232© 

B, 

0 B , 

0 E i 0 B 

i 0 Bi 0 

B 

J? 





13 

1 2320 

B, 

© E, 

@ B i © B 

i 0 E i 0 

B 

f 





14 

1 2220 

E, 

0 E i 

© Bi 0 E 

, 0 B i © 

B 

9 





15 

12220 

B j 

© B t 

0 B i 0 B 

i 0 E i 0 

B 

i DECIMAL - 

~ > 



0 

1 

2 

3 

4 

5 

5 
7 

6 
3 

10 


-B1ock 

( PHASOR BURST 
DATA PBUREXP 2 
~ 3030 0000 A 
~ @003 @000 A 
~ 1 113 300® *' 
0033 0000 A 
~ @300 0©0@ A 
DECIMAL —> 


11 ! 

12 3 

13 ! 


1@S- 

HIT PATTERN ) 
E, 5 B , QUAD 


14 l 
15! 


r 3000 Bi 


, @ E, 











-I-Block 106 


0! ( FIREBALL PATTERNS 1 

AND 2 

) 

1iDECIMAL 

DATA 

FBLl 4 B 

jp 3 B y 

QUAD 

2!0110 

B, 

0000 

B, 

0000 

E, 0000 

B, 

3 ! 311 1 

B, 

1111 

B, 

1111 

B , 0000 

B , 

4!0130 

B, 

© 00 ® 

B, 

0000 

Bi 0000 

B, 

■_> | 

6!DEC IMAL 

DATA 

FBL2 4 B 

r 5 B, 

QUAD 

7i0013 

B, 

0000 

B, 

0000 

E, 0000 

B , 

8 1031 1 

B , 

1000 

B j 

0000 

B 9 

Bi 

9 ! 3111 

B, 

1111 

B, 

1111 

E, 0000 

B, 

1010331 

B / 

1000 

E, 

0000 

E , 000© 

3B t 

11!0031 

B , 

0000 

3 > 

0000 

Bi ©00© 

Bi 

12!DEC IMAL 

-> 





13 ! 







14 ! 







15 ! 







+- 

— 

-E1ock 


107- 



0! ( FIREBALL PATTERN 3 

) 


1iDECIMAL 

DATA 

FBL 

o 4 1 

i 7 B, 

QUAD 

210003 

E, 

3100 

B, 

0000 

B, 000© 

B, 

3!0033 

B, 

1130 

B, 

000© 

B/ 0000 

Bi 

4|0331 

B, 

1311 

B, 

0000 

B; 0000 

Bi 

5 13333 

B, 

1111 

B , 

1 i 1 1 

Bi 0000 

B, 

610113 

B, 

3113 

E, 

0000 

Bi ©00@ 

E, 

7I0031 

B / 

113© 

B, 

0000 

Bj @00© 

B i 

8 I 0001 

E, 

i 1 @0 

15 9 

0000 

3, 0000 

B, 


9!DEC IMAL —> 
10 1 
11 l 
12! 

13! 

14 ! 

15 i 


+-Block 1 08— 

0! ( FIREBALL PATTERN 4 ) 


1 

DECIMAL 

DATA 

FBL4 4 B 

9 

9 B i 

QUAD 

2 

0001 

B, 

1300 

B i 

0 0 0 0 

S3 j 

@000 

B, 

3 

001 1 

Bi 

333@ 

Bi 

©000 

£? 9 

0000 

Bi 

4 

031 1 

Bi 

131 i 

B, 

0000 

S$ 9 

@000 

y 

5 

1331 

B, 

1111 

3, 

1 000 

E i 

@000 

Bi 

6 

3133 

B i 

1131 

Bi 

1111 

Bi 

g!^ fa 

B i 

7 

3111 

Bi 

11 33 

E,, 

3000 

’ 9 


B p 

S 

031 1 

Bi 


p 

0 c -J 0 

L 1 jj 


B H 

3 

@013 

B j 

'1 rl 1 * 

15 


T7> 

-’7- ; fa ^ 

75 

© 

0003 

B., 

310® 

15 

fa f. - jf^ 

r • - 1 J? 

fa. fa fa 

3 .9 

A 

l 

DEC I 

H Hi IL. 

— - > 







12 S 

13 i 

14 5 

15 ! 










0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 


-Block 109- 

FIREBALL FATTERN 5 


DECIMAL 

DATA 

FBL5 4 : 

B, 

11 B, 

QUAD 

0000 

E, 

3110 

B, 

0000 

B, 

0000 

B, 

0033 

B, 

1113 

B, 

300© 

B, 

0000 

E, 

0333 

B, 

331 1 

B, 

3100 

B, 

0000 

B, 

0331 

B, 

3331 

B, 

1 100 

B, 

0000 

B, 

3311 

B, 

131 1 

B, 

1330 

B, 

0000 

B, 

1113 

B, 

1 1 1 1 

B, 

3331 

B, 

0000 

B, 

1111 

B, 

1131 

B, 

3313 

B, 

0000 

B, 

0131 

B, 

3133 

B, 

3300 

E, 

0000 

B, 

0333 

E / 

1113 

B, 

330© 

E, 

0000 

B, 

0011 

B, 

1133 

B, 

1 00© 

B, 

©00© 

B, 

0000 

B, 

1130 

E, 

0000 

B, 

0000 

B, 

DECIMAL 









-B1ock 


110' 

_ 




( ANIMATION SEOUENCE FOR FIREBALL > 

HEX SUBR SETFBD XCHG, LDAR, 7F ANI, A C MOV, 0 B MVI, 

40 H LX I, A ANA, B DSBC, H DAD, H DAD, 

L VDYL X STX, H VDYH X SIX, XCHG, RET, 

DAT A AFIREBALL ASM XADDWR1TE SETR NULPAT SETFP -FB 0 SETDC 
SETFBD ASMCALL 

5 SWA IT 0 -1 


0 SETDDC FBURST SETP 
-1 DISPL 

AREPEAT FBL2 SETP 20 SETM 
-1 DISPL 

AREPEAT FBL3 SETP 2© SETM 
0 -1 DISPL © ® SETDDC 
3 AREPEAT FBL4 SETP 20 SETM 
0 -1 DISPL 

FOREVER FEL5 SETP 20 SETM 
DECIMAL —> 

-BIock ill- 


DISPL FEL1 SETP 6 SWA IT 


3 SWA IT A0 SETM 3 SWAIT ALOOP 


3 SWAIT A© SETM 3 SWAIT ALOOP 


3 SWAIT A© SETM 3 SWAIT ALOOP 


3 SWAIT A0 SETM 3 SWAIT EVERFOR 


0 

1 ( BACKGROUND SKI 

P FLYING 

- 

ESF ) HEX 



1 

! DATA 

BSFSCORE AS 

M 





2 

23 MASTER 1 2 52 

1© RAMBLE 

1 -2 3F MOVESOUND 

3 

99 ABVOLS 09 MCV 

OLS 4 FF 

CT 

ONE HERE 



4 

4 FF 

FE FD NOTES 

4 FE FC 

FA 

NOTES 4 FD 

FA 

F7 

5 

4 FC 

F8 F4 NOTES 

4 F2 FS 

FI 

NOTES 4 FA 

F4 

EE 

6 

4 F9 

F2 EE NOTES 

LDPCC 





7 

: BSF 

BSFSCORE 02 

jv!| y c- “ r~-, w 





a 

— > 







9 i 









NO" 


1 © ! 
1 1 i 
12 ! 
13 ! 
1 4 ! 
15 i 










0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 


0 MOVESOUND 66 ABVOLS 6 MCVOLS 
1 COUNTLIMITS PLAY 


-B 1 ock 112- 

C SHIP EXPLOSION - SE ) HEX 
DATA SE1SCORE ASM 
#C3 #D3 #E3 TONES HERE 2 1 
80 MASTER 1 -1 80 2 RAMBLE 
10 NOISE 6 1 F 2 RAMBLE 1 1 3F MOVESOUND 5 COUNTLIMITS 
FF ABVOLS 3F MCVOLS PLAY FF IF 16 -10 0F MOVEVOLS 
2 1 B© F RAMBLE B7 0 0 0 MOVENOISE 1 COUNTLIMITS PLAY QUIET 
DATA SE2SC0RE ASM 6 DURATION 
#F3 #G3 #A3 TONES LDPCC 
: SE SE2SC0RE F2MUSIC SE1SCORE PMUSIC ; 

— > 


+— 
0 [ i 

1 i 

2 ! 

3 ! 

4 ! 

5 i 

6 ! : 

7 j 

8 i 

9 ! 
10 i 
11!: 
12 ! 

13 1 

14 ! 
15| 


-g 1 ock 113- 

FIRE BALL SCORE -FES, SHIP SHOTOFF - SO ) HEX 
DATA FBSCORE ASM 

10 MASTER 2 1 3® 10 RAMBLE 1 COUNTLIMITS #DS3 #E3 &D3 TONES 
2 -1 3F MOVESOUND 22 12 10 1 0 0C MOVEVOLS PLAY 
© 2 3 6C MOVENOISE 2 3 8F 3© RAMBLE 1 COUNTLIMITS PLAY 
BSFSCORE LDPCC < Jump -to background ) 

FBS E2MUSIC FBSCORE B2MUSIC ; 

DATA SOSCORE ASM 

10 MASTER 2 -2 10 6 RAMBLE 5 0 © © MOVENOISE 1 -3 3F MOVESOUND 
BE ABVOLS IB MCVOLS 4 FF FE 2© NOTES 
4 FE FC 1C NOTES 4 FD FA 1A NOTES QUIET 
SO EMUS IC SOSCORE BMUSIC ; —> 


-Block 114- 

< MISSIONS- BLACK HOLE EMERGENCE > HEX 
DATA BH1SCORE ASM 

11 40 62 TONES 1© MASTER 1 4 C0 10 RAMBLE 1 COUNTLIMITS 


2 1 0 MOVESOUND © 
C@ MASTER 1 -8 C0 
80 MASTER 1 -8 8© 


1 4 B0 MOVENOISE 88 ABVOLS 1C MCVOLS PLAY 

2 RAMP B0 1 -8 © MOVENOISE 1 COUNTLIMITS PLAY 
2 RAMP 7© 1 -8 0 MOVENOISE 1 COUNTLIMITS PLAY 


8© MASTER 1 -8 8© 2 RAMP 7© 1 -8 0 MOVENOISE 1 COUNTLIMITS PLAY 

2 MASTER 3 1 FF 2 RAMBLE 1 COUNTLIMITS PLAY QUIET 


8iDATA BH2SC0RE ASM 
gi |g gs 50 JONES 10 
1©i 2 1 © MOVESOUND © 
11 I C® MASTER 1 -3 CO 
12! 8© MASTER 1 -8 80 
131 8© MASTER 1 -8 80 
14| 2 MASTER 3 1 FF 2 
15 1: BH EH i SC0RE MUS 


M -\ p T — —■' <j , ,-J. f 0, 1 f5 p? M p! — r fV IJ \! — I T !M 7 — J 

f ■■■: go MOVENOISE-S8 ABVOLS 1C MCVOLS PLAY 
" ~:A 1 -g Q MOVE'-"0 I SE i C$UN~LIM~~S PLAY 



RAMBLE 1 COUNTLIMITS P_AY QUIT 
C EH23COEE P2MUSIC DECIMAL, f 
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MOTHER SHIP ) 


+-Block 150- 

< MISSION 5 - ATTACK 
DECIMAL 

0 V= MSHITF 0 V= MSIYC 0 V= MSV 0 V= CHUNKXTBL 
0 V= HITXC 0 V— HITYC 0 V= CHUNKTIME 
0 V= VGF1 0 V= VGF2 
3SG BA= MOMPAT 

: COPYMOM 386 0 DO I MUTHA + B® I MOMPAT B! LOOP 
DECIMAL —> 


-Block 151- 

( MOTHERSHIP EXPLOSION ANIMATION ) 

DATA MSDIE ASM 0 0 SETDC 0 MOMPAT SETP 1 SWAIT 

8 26 DISPL FBEXP1 SETP 20 SWAIT 

-3 -4 DISPL FBEXP2 SETP 20 SWAIT 

-1 -2 DISPL FBEXP3 SETP 20 SWAIT 

FBEXP4 SETP 20 SWAIT NULPAT SETP 1 SWAIT AHALT 

DECIMAL —> 


+-Block 152- 

C SUBROUTINE TO WRITE MOTHERSHIP PATTERN ) 

SUBR WMOM PQSFRZ PQS X BITX, 0=, IF, TBCALC CALL, E PUSH, 
POSDE PQS X EITX, 0=, IF, verase CALL, ELSE, 

PGSDE PQS X RESX, 

THEN, C ZAPAT CALL, ) ( ZAP HOLES IN PATTERN, IF NEEDED ) 
B POP, VECTDD CALL, aup CALL, PQSDW PQS X BITX, ©=, 

IF, vwrite CALL, ELSE, PQSD'-J PQS X RESX , PQSDE PQS X 
THEN, ELSE, @ PGT3 X XVIX, THEN, K ILLQFF JMP, 


9 

1@ 
1 1 
12 

13 

14 


SETX 










CM C'.< ID 


+-Block 153- 

( MOTHER SHIP ANIMATION ) 

HEX 

DATA AMUTHA ASM WMOM SETR 0 MOMPAT SETP 
50 SETX2H 4000 SETXC 1000 SETYC 
FOREVER 

6 AREPEAT A0 SETM -2 40 SETDC 0 2 SETDDC 60 SWAIT 
60 SWAIT 20 SETM -2 -40 SETDC 0 -2 SETDDC 60 SWAIT 
60 SWAIT ALOOP 

6 AREPEAT A0 SETM 2 40 SETDC 0 2 SETDDC 60 SWAIT 0 
60 SWAIT 20 SETM 2 -40 SETDC 0 -2 SETDDC 60 SWAIT 
60 SWAIT ALOOP EVERFOR 
DECIMAL —> 


1 
2 

3 

4 

5 

6 
7 

a 

9 

10 
11 
12 

13 

14 

15 

0 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 

0 
1 
2 

3 

4 

5 

6 
7 
3 
9 

10 

11SDECIMAL 


) HEX 


, 0 B MV I, 

H D MOV, 3 
H INK, 


B MV I 
FFSL 


FFBIAS LDA. 


D PUSH, 


+-Block 154- 

( CHECK FOR FORCE FIELD INTERCEPT 
F= FFSL F= FFOK F= FF2L F= NOFF 
SUBR FF CHECK <ASSEMBLE 
FFLAG LDA, A ANA, RZ, VYH X C LDXj 
0 FIELDADR H LXI, E DAD, L E MOV, 

LABEL FFSL M A MOV, A ANA, FFOK URNZ, 

A ANA, RET, 

LABEL FFOK RRC, RRC, 3F ANI, A B MOV, 

VXH X SUBX, 

4 ADI, 7 CPI, NOFF JNC, C DCR, D DCX, 

C L MOV, 0 H MV I, H DAD, H DAD, H DAD, H DAD, 

L C MOV, H B MOV, H DAD, H DAD, B DAD, FFBIAS LBCD 

— > 


H-Block 155- 

C FORCE FIELD INTERCEPT CHECKER CONTINUED ) 

5 B MV I , 

A MOV, A ANA, ©< >, IF, 

OR I , MAGIC OUT, A XRA, A M MOV: 
, RRC, RRC, 

D MV I, XC.-.G, D DAD, OFF M MV I , 

ELSE, 


LABEL FF2L XTHL, M 
A C MOV, 3 ANI, 20 
H I NX, XTHL, C A 
3F ANI, A E MOV, © 

H I NX, 0 M MV I, XCHG, 
50 D LXI, D BAD, FFZL 
H POP, 1 A MV I s A AHA 
LABEL NOFF A XRA, s”! 


H I NX, XTHL. 




RET . 


0 

3 


0 -2 SETDDC 
0 2 SETDDC 

-2 SETDDC 
0 2 SETDDC 


DUN2, 

B ADD, 


, B DAD, 
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+-B 1 ock 


156- 


( HAVE PHASGR BURST END WITH A BANG ANIMATION ) 
DATA APBEXP ASM Q 0 SETDC 8 -2 DISPL 
NULPAT SETFP PEUREXP SETP 3 SWAIT AHALT 
DECIMAL —> 


-Block 157- 

C M5 PHASOR INTERCEPT 
HEX F= CFF F= PIS 
SUBR M5PINTER <ASSEMBLE 
MSV LIYD, CHECKVEC CALL, 
FQSFR2 PQS Y SETX, 

VXL Y L LDX, VXH y 
VYL Y L LDX, VYH Y 
VYH X A LDX, MSIYC 
LABEL CFF FFCHECK 


CHECK ROUTINE ) 


CFF JRZ, 


H LDX, HITXC SHLD, 
H LDX, HITYC SHLD, 
STA, PIS JMPR, 
CALL, PIS JRNZ, 


9 C MV I, CHECKALL CALL, RZ, FQSRH PQS Y RESX, FGSDW PQS Y SETX, 
VYL Y L LDX, VYH Y H LDX, PINTERY SHLD, VXL Y L LDX, 

VXH Y H LDX, PINTERX SHLD, 1 A MVI, PINTERFLAG STA, 

VRACK Y A LDX, PINTERN STA, 

LABEL PIS APBEXP H LX I, CRASHA CALL, PQSFRZ PQS X SETX, 

XAWRITE H LX I, L FQRL X STX, H PQRH X STX, RET, 

ASSEMBLE> DECIMAL —> 

-Block 158- 

C SUBROUTINE TO SHOO 
HEX 

SUBR SHOOTFB MSV LIYD, 

B DCR, B PUSH, VYL Y L 


A FIREBALL ) 


VXL 

LDX, 


Y C 
VYH 


DX, 
Y H 


2©00 D LX I, 

H PUSH, B A 
H PUSH, 

©4A4 H LX I, 
SKILLFACTOR 
LDAR, IF AMI 
VXH Y A LDX, 
XYVSTART JXP 


D DAD, 


H PUSH j 

L D A , A 


VXH Y 
LDX, 

5 USH, AFIREEALL H LX I 
©A SUI, A L MOV, 0 H 


B LDX, 


Ml! T 


THEN, 
■TIMER 


IF, 


3F an: 
STA , 


4® AD I 


CODE FESHOOT X PUSHY, Y PUSH; 


EXX, SHOOTFB CALL, 


EXX, Y F 
DECIMAL 


FO 
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4 .-Block 159- 

I ( KAMIKAZE ATTACK STARTER ) 

I HEX SUBR KAIi I ST ART 

ILDAR, 1 ANI, 0 =, IF, VGF1 LIXD, ELSE, VGF2 LIXD, THEN, 

IDI, PQSRH PQS X EITX, RZ, ASFLOK VAUXS X EITX, RZ, 

! VYH X A LDX, 2© SUI, 90 CPI, RNC, LDAR, 1 ANI, 

|0=, IF, KAMIATL H LX I, ELSE, KAMIATR H LX I, THEN, 

IASFLOK VAUXS X RESX, CRASHA CALL, LDAR, IF ANI, IS ADI, 
iBOMBTI HER STA, PLAYKBS JMP, 


CODE LAUNCHKAMI X PUSHX, Y PUSHX, B PUSH, KAMISTART CALL, El, 
B POP, Y POPX, X POPX, NEXT 

DECIMAL —> 


+-Block ISO- 

|( CHECK TIMERS AND SHOOT FIREBALL IF APPROPRIATE ) 

|: LAUNCHFIREBALL FES FBSHOOT ; 

|: CHECKFIREBALL 

IBOMBTIMER @ © = IF SKILLFACTOR § IF 2 RND IF LAUNCHKAMI 
!ELSE LAUNCHFIREBALL THEN ELSE LAUNCHFIREBALL THEN THEN 
IDECIMAL —> 


H- 2 1 ock 161- 

!f CHUNK SUBROUTINES AND TABLES ) 

I HEX DATA DXLUT -80 , -4© , -1 © , 10 , 40 , S© , 

I DATA DXALLDOwN -80 , -80 , -80 , -80 , -80 , -80 , 

IDATA DXHISKILL -C© , -C0 , -C© , -C© , -C@ , -C0 , 

I DATA NULANIM ASM AHALT 

ISUBR M0MR2A C B = PATTERN Y C = PATTERN X IY = MOM ADDR ) 

IMRFLIP VMAGIC Y EITX, 0<>, IF, 3F A MV I , B SUB, A L MOV, 

!ELSE, B L MOV, THEN, 

I© H MV I, N DAD, 

! L E MOV, K B MOV , DAD, D DAD, 

|C E MOV, 0 D MV I, 0 DAD, 

12 MOMPAT Tj LX I, D DAD, RET, 

’DEC I HAL — > 

3 

\ 

a 

■s 

a 
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-Block 1S2- 

( BLOWOFF - START A CHUNK FLYING OFF - BO FATTERN CHANGES 
( B = PATTERN X C = PATTERN Y ) HEX 
SUER BLOWOFF DI, MSV LI YD, 

B PUSH, getnode CALL, 

H PUSH, X POPX, CLRVEC CALL, 

B POP, M0MR2A CALL, E PUSH, H PUSH, 

X PUSHX, H POP, VASTKS D LXI, D DAD, 

L VPATL X STX, H VPATH X STX, 

2 M MV I, H I NX, 3 M MV I, H I NX, 

XCHG, H POP, 3 B MV I, 

BEGIN, M A MOV, B STAX, 0 M MV I, D I NX, D I NX, 


MRFLIP VMAGIC Y BITX, 
H I NX, H I NX, H I NX, I 


= , IF, 

I NX, H I NX, H I NX, 

ELSE, H DCX, H DCX, H DCX, H DCX, H DCX, H DCX, 
THEN, LOOP, 

B POP, —> 

-Block 1G3- 

( BLOWOFF - CALCULATE X COORDINATE AND DELTA ) 
HITXC LHLD, 

C D MOV, 0 E MVI, D DAD, 

L VXL X STX, H VXH X STX, 

C A MOV, RLC, A E MOV, © D MVI, 

CHUNKXTBL LHLB, D DAD, 

M E MOV, H I NX, M D MOV, 

VDXL Y L LDX, VDXH Y H LDX, D DAD, 

L VDXL X STX, H VDXH X STX, 

—■ > 


164- 

PROCESSING ) 


-B 1 ock 

( Y COORDINATE 
HITYC LHLD, 

B D MOV, © E MVI, D DAD, 

L VYL X STX, H VYH X STX, 

E L MOV, 0 H MVI, -20 D LXI, 

D DAD, H DAD, H DAD, H DAD, ( H DAD, ) 

VDYL Y E LDX, VDYH Y D LDX, D DAD, 

L VDYL X STX, M VD V "-' X 3“X, 

— > 


11 
12 

13 

14 
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-Block 165- 

( INITIALIZE ALL THE FARMS FOR INTERRUPT > 

20 VMAGIC X MVIX, 

8 VIDENT X MV IX, 46 VRACK X MVIX, 

CHUNKTIME LHLD, L VTLL X STX, H VTLH X STX, 

78 VATMR X MVIX, 

0A4 PQS X MVIX, 

30 VXZW X MVIX, 

jNULPAT H LX I, L VFNLPL X STX, H VFNLPH X STX, 
XAWRITE H LX I, L PQRL X STX, H PQRH X STX, 
NULANIM H LX I, L VPCL X STX, H VPCH X STX, 
vwrite CALL, STARTVEC CALL, RET, 

DECIMAL —> 


-Block 166- 

( CHECK FOR PHASOR - MOTHER INTERCEPT AND BLOWOUT ) 

F= MHSL F= MHSF F= MHNG F= MHGB F= MHNG1 F= RSL F= REH F= NHIT 

HEX CODE MPHC <ASSEMBLE 

EXX, X PUSHX, Y PUSHX, MSV LI YD, 

0 H LX I, MSIYC LDA, A ANA, MHNG1 JZ, 

VYH Y SUBX, 40 CPI, MHNG JNC, 

A E MOV, 0 C MV I , 

LABEL MHSL M0MR2A CALL, M A MOV, A ANA, MHSF JRNZ, 

C I NR, C A MOV, 6 CPI, MHSL JRC, MHNG JMP, 

— > 


6 

7 

8 
9 

10 
1 1 
12 
13 


167- 

CHECK FOR REACTOR HIT ) 


-I--E 1 ock 

C PHASOR - MOM 
LABEL MHSF 

MRFLIP VMAGIC Y BITX, 0<>, IF, 3F A MV I, B SUB, ELSE, B A MOV , 
THEN, 1C CPI, NHIT JC, 2A CPI, NHIT JNC, 

C A MOV, 2 CPI, NHIT JC, 4 CPI, NHIT JNC, 4 E MV I, M D MOV, 
LABEL RSL D A MOV, RLC, RLC, A D MOV, 3 AN I, 3 CPI, REH JRZ, 

E DCR, RSL JRNZ, NHIT JMP, 

|LABEL REH D!, MSHI T F STA, Y PUSHX, XTIX, 

J B PUSH, MSS IE - LX", 

! CRASH* CALL, XAHRI"E LX P* L PQRL X STX, H FORK X STX, 
ijPQSDE PQS K SET X, P POP , X POP XL 

l — > 


1 4 ! 
15 l 
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-Block 168- 

C PHASOR - MOM CONTINUED ) 

LABEL NH1T B A MOV, A DCR, 0< , IF, A XRA, ELSE 
3E CPI, CY~, IF, 3D A MV I, THEN, THEN, A B MOV 
BLOWOFF CALL, 1 H LX1, MHGE -JMPR, 

LABEL MHNG 0 H LXI, 

LABEL MHGB A XRA, MSIYC ST A, PQSFRZ PGS Y RESX 
LABEL MHNG1 Y POPX, X POFX, H PUSH, EXX, NEXT 
ASSEMBLE> DECIMAL —> 


, 

, 


, 



H-Block 163- 

i< TRY TO SEND OFF A FRAGMENT ROUTINE ) 

iHEX CODE SENDFRAG EXX, D POP, E B MOV, D POP, E C MOV, 
IX PUSHX, Y PUSHX, 

! MSV LI YD, M0MR2A CALL, 

IM A MOV, A ANA, 0< >, IF, 

IFREELIST LHLD, H A MOV, L ORA, 0<>, IF, 

IBLOWOFF CALL, THEN, THEN, 

|Y POPX, X POPX, EXX, NEXT 
IDECIMAL —> 


+-Block 170- 

|( EXPLODE THE MUTHA SHIP ) 

! HEX 

I : EXPLODEMUTHA ERASEFF 

!DXLUT CHUNKXTEL ! 2® CHUNKTIME ! 

jWRTONLY LIMIT ! HITXC @ 280 + DUP MUTHAX ! 

IHITYC @ 2000 + DUP MUTHAY ! SETLXY 

16 6 30 30 SETSF D! UPBATEALL El SE BMS 1 STARZ OUTF 
110 0 DO 8 ® DO 3 RND 1+ 30 RND 8 + SENDFRAG UPDATEALL BM 
| 14 VI I ® OUTP l 4 C'V~~ El LOOP S S I & is 4© + DUP SETS” L 
!3 STARZ OUTP WV" 7 0 OUTP 7 4 OUTP El 

J100 0 DO S RND SC FD-’D 2 +■ SENDFRAG UFDATEALL BMS LOOP 
iTO 1 ENDOFFRAXE ’ : 

IDECIMAL —> 


n 

a 
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+--Block 171--- 

SC CHECK FOR FHASOR HIT MOTHER SHIP ) 

HEX 

: PSCORECHECK MPMC IF 
2© UPDATESCORE 

MSHITF @ IF 100© UPDATESCORE EXPLODEMUTHA ELSE SO THEN 
THEN ; DECIMAL —> 


-g i ocSc i jg- 

C ANIMATION LIST FOR FI REBASE + COLOR TABLE ) 

HEX 

SUBR M5INTER MSHITF LDA, A ANA, RN2, 0D C MVI, CHECKALL CALL, 
R2, POSRH PGS Y RESX, PQSDW PQS Y SETX, EXPLODEFB CALL, RET, 

DATA M5FEA ASM M5INTER SET! 1F05 B005 SETDDC PLAYERAN1M 
A JMP 

DATA M5C0L0RS 7 B, 7D B, 0E B, 5F B, 7 B, 7D B, 0B B, 5F B, 
DECIMAL —> 


-Block 173- 

( INITIALIZE MISSION 5 - DESTROY THE MOTHER SHIP ) 

HEX : INITM5 © FLOOD INITMISSIONRAM 35 MISSION \ 

DRAWMI SSI ONSCREEN 100 500© 408 A" DEATH SHIP" COUNT SP03T 
0C FFBIAS ! 2 INITFF 
0 PINTERFLAG ! 0 MSIYC ! © MSHITF ! 

COPYMOM MSP INTER PHASINTR ! -1 INVADERSLEFT ! 

M5FBA FEAN IM ! ACTFB 

GETNODE DUP PV1 ! © SWAP \ GETNODE MSV i 
SO BOMBTIMER ! ’ PS" REINST 

SKILL FACTOR 0 I" D X » 'X :L E L S c S >■ AL T 0 W v “ r v r v y n* »< X T B L { 

7© CHUNKTIME ' DP^W~F 
DECIMAL ——> 
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-Block 174- 

( SCAN LOOP AND STARTUP ) 

; M5SCAN FIRECHECK < EXPLODECHECK > CHECKFI REBALL 
PLAYERHITCHECK PHASORINTERCEPTCHECK PSCORECHECK BMS 
HEX 

M5 INITM5 AMUTHA 0 B2 MSV 0 XVSTART SHUTUP BH BSF 
SKILLFACTOR ® IF GETNODE VGF1 ! GETNODE VGF2 ! 

MSV @ ©60© © AKGORF 43 1B2 VGF1 0 FSTART 

MSV 0 0S00 3600 AKGORF 43 1B2 VGF2 0 FSTART THEN 

5 M5C0L0RS FUC 

BEGIN M5SCAN 

ENDOFFRAME 0 END 4 FDE ; 

HEX A5 GSAB U! 'MS GSAE 1+ U! 

: BEGINGAME STARTGAME SKILLFACTOR ! GSAB 1+ 0 DOIT ; 
DECIMAL ;S 


-Block 131- 

( GAME START ADDRESS BLOCK 
DATA GSAB © E, © , 


+ - 

— 

-B1ock 


132- 

— 








0| ( MOM 

1 ) 

DECIMAL 

DATA 

MUTHA 6 

E, 

64 

■ B 

f 

QUAD 

© 

1i0000 

B, 

©00© 

B f 

©00© 

B, 

0&00 

B, 

0 

B, 

© 

B/ 


2!000© 

E, 

0000 

E, 

0000 

JU> / 

0&0® 

E, 

0 

B / 

0 

E j 


3 | ©000 

B , 

0000 

B > 

©00© 

E, 

&&&© 

B, 

© 

B , 

© 

B, 


4 i ©00© 

B, 

000© 

B, 

©00© 

B, 

8:8:8:0 

B, 

© 

B , 

0 

B, 


5! 0000 

E, 

0000 

B, 

0000 

B / 

8; 8-; & 0 

E, 

0 

B, 

© 

E, 


S ! 0000 

B , 

0000 

B t 

fa fat fa fa 

'w-' 'O j 

- 1 J 


B f 

© 

E, 

© 

B « 


7 1 ©©©© 

E, 

©©©©- 

B f 

r? r> it?* 

F j? 


B, 

© 

S . 

r'J'l 

F 7 


S ' 0000 

£j p 

0 £*> fa fa 

P 

00.0© 

jt? j 


j? 

,0 


0 

■R 


s 0000 

B , 

0000 

E , 

*5* fafa 

■£’ 7 

Si Si as 

jj j 

© 

—* f 

fa 

z? 


10 ! 0 © 0 0 

3, 

0000 

ira 

£$ j? 


J? 

rij:. 

3 j 


*o 

JL? .9 

© 

F; , 


11|000© 

B ; 

© © © © 

•n 

JD p 

^ r'- 

F p 

a. ft,, a. v’- 

j? 

0 

«3 J 


K „ 


12 j @ @ © © 

E, 

0 @ 0 ® 

E. r 

r7' £$■ r? 1 r' 

■ • > j 

Cy Sy yy 

P 

j? 

@ 

13 j 

© 

R 


13 5 @000 

B, 

O © ^ ^ 


' rF’i fa ft . ft. 

7 

&$&& 

1R 

6d@©0 

P 

, 0 

B « 

14 i 0000 

JC5 f 

0 ® S © 


fa. fa r"> -B., 

• J? 

fa 

iC?,» 

a©®© 

Jjjja 

, © 


15 j 0000 

E, 

0030 

■jra. 

-'vl fa £y £>. 

J 


p 

iU> Jf 

&0 

; © © 

F 

j, 0 

U> jp 


0 B. 


8c8£&0 B r ® r 












+-Block 193 


0 

i ( MORE 

MOM ) 

0000 B , 

0000 B f 

08c8c8c B f 

***8c 

E, 

8c8c@0 

1 

j 00«0 

B / 

00® 0 

B, 

08e8c8: 

E, 

***8c 

E / 

8:8:00 

B / 

0 

Bf 


2 

! 000® 

E, 

0 ® 0 0 

B, 

08c 8c* 

B, 

**** 

E, 

8c8c00 

E / 

0 

Bf 


3 

j 0000 

E, 

® 0 0 0 

B, 

08c 8c* 

E, 

**** 

E, 

8c8c00 

B, 

0 

B r 


4 


B , 

@®00 

B, 

8c 8c 8c* 

B, 

**** 

B, 

8c8c8c@ 

B p 

© 

B, 


5 

j 0000 

B, 

00S® 

E / 

8c Sc 8c* 

B, 

**** 

B r 

8c8c8c0 

£> p 

@ 

Bf 


6 

i 0000 

B, 

©©©© 

B.. 


B / 

**** 

Bf 

*8c8c0 

E p 

0 

Bf 


7 

j @000 

E, 

0000 

B, 

8c 8c** 

B, 

**** 

B, 

*8c8c@ 

E t 

© 

Bf 


S 

j 0000 

E, 

0000 

B, 

8c 8c M & 

3, 

**** 

Bf 

*8c8c0 

B> p 

® 00© 

B r 

9 

j 0000 

B / 

0000 

B, 

8c 8c** 

B, 

**** 

E, 

*8c8c0 

B, 

®000 

Bf 

10 

i 0000 

B, 

0000 

B j 

8c 8c** 

B, 

**** 

B / 

*Sc8c© 

B p 

® 000 

B, 

11 

j 0000 

B, 

000* 

B, 

8:8:** 

E, 

*«** 

E, 

*8c8c0 

B f 

0 

Bf 


12 

j 0000 

B / 

000* 

B, 

8c 8c** 

B, 

®®S* 

E, 

*8c8c0 

Bf 

0 

Bf 


13 

| 0000 

E, 

000* 

B, 

Me *S 

B j 

* -it 
wwww 

B,; 

*'8c8c© 

Bf 

0 

Bf 


14 

j 0000 

B, 

0000 

E, 

00® S 

B / 


Bf 

*8c8c0 

B f 

® ©00 

B f 

15 

! 0000 

E, 

000* 

B, 

8c8c*S 

B , 

■&? .Jir .JJr -it 
© 4P © 

B, 

*8c8c0 

Bf 

® 000 

B, 


+- 

— 

—B1ock 

194- 

— 








0 

i( MORE 

MOM ) 

0000 B , 

©0** E, 

8c8c*® E/ 

-at -at -at 
® © © © 

Bf 

*8c8c@ 

1 

i 0000 

B, 

0*** 

B, 

8c 8c*® 

B , 


B i 

*8c8c0 

Bf 

0 

B, 


2 

! ***0 

B, 

**** 

E, 

8c8c*S 

B, 

®®«s 

E, 

*8:8:0 

Bf 

0 

Bf 


3 

! **** 

B, 

**** 

B, 

8c8c*S 

B t 

•at ■at is: 

■W © W © 

B, 

*8c8c© 

B, 

© 

Bf 


4 

i *®** 

B , 

**** 

E, 

8c 8c*® 

B , 

fit® 

B, 

*8c8c© 

Bf 

t©00 

B, 

5 

! *#** 

B, 

/lb 

E, 

8c 8c*® 

B, 

ssss 

B, 

*8c&0 

B p 

® ©00 

Bf 

6 

i *®** 

B, 

***0 

E, 

8c 8c*® 

3, 

®®®® 

B, 

*8c8c© 

Bf 

^ 000 

3B p 

7 

i *®** 

B, 

**0@ 

E f 

8c 8c** 

3, 

sss* 

B, 

*8c8c© 

B, 

0 

B f 


8 

i *®** 

B , 

*000 

E j 

8c 8c** 

B / 

*®** 

B, 

*8c8c0 

B f 

0 

B, 


9 

i **** 

B t 

0000 

E j 

8c 8:** 

B, 

**** 

B, 

*8c8c© 

Bf 

0 

B t 


10 

i *#*© 

B, 

0000 

B, 

8c 8c** 

B, 

**** 

B, 

*8:8c0 

B f 

®@00 

B, 

11 

i *S*0 

B t 

0000 

B, 

8c 8c** 

Bf 

**** 

E, 

*8c8c0 

Bf 

s© © © 

Bf 

12 

1 ***© 

B, 

000© 

E, 

8c 8c** 

B p 

3K 

B t 

*8:8:0 

Bf 

■St 

300 

Bf 

13 

i *#*0 

E, 

0000 

B f 

8c 8c 8c* 

Bf 

**** 

B, 

*8c8c© 

B r 

0 

B, 


14 

i *®*0 

B, 

0000 

B / 

8c 8e & & 

Bf 

8t 8i & Si 

B t 

8c 8c 8c 0 

B j. 

0 

Bf 


IS 

! *®*0 

B , 

0080 

B, 

8c 8:8:8c 

Bf 

8c 8c 8c 8c 

B, 

8; 8c 8c 0 

Bf 

0 

Bf 



+- 

— 

-B1ock 


135- 

— 








0 

i C LAST 

MOM ) 

*S*0 B, 

@000 B f 

08c8c8c B, 

8c 8c 8:8c 

Bf 

8c 8:0© 

1 

i *S*0 

E, 

0000 

B , 

08C00 

B, 

0000 

B, 

08c 0@ 

B, 

0 

Bf 


2 

! *®*0 

E, 

©0@0 

B j 

08c0* 

B r 

0*0* 

B, 

08c 00 

E / 

0 

B, 


3 

! *#*© 

B, 

0000 

E, 

©8c0* 

P 

±J f 

0*0* 

B t 

©8c00 

B, 

0 

Bf 


4 

i *«*0 

B, 

0000 

E, 

08c@* 

B, 

0*0* 

B, 

08c00 

B, 

0 

B 


5 

! *®*0 

B, 

000@ 

E ! 

©8c0* 

E, 

0*@S 

B 3 

©Sc ©0 

Bf 

0 

B r 


e 

i *®*0 

B, 

0000 

B p 

000* 

B, 

0*0* 

B p 

0 B ? 

© 

Bi 



7 

! *»*0 

E, 

0 0 0 (?. 

73J 

0 0 @ ^ 

TTb 

j? 

yif' f%, yyr 

IF 

@ 3 s 

p 




8 

! st*@ 

B.« 

© 3.- 


p p -p 


©! p „ 

© 3 






9 

I *ff*0 

B f 

[fjl 

iF 

7Z> r p p 

r 

■0 F; „ 

0 3 

« 





10 

! *0*0 

B, 

jfS] p 

p 

p p p 

.7 

Q) P 


ff ■ 





11 

j A 

P 

j? 

p 

p 

F' n !*”■> F 

p 

© F n 

%?■ 

t 





12 

s affiiajjagj 

B 9 

0 B r 

sj- 

F p F 

' p ’ 

@ ::: „ 

3s p? 

p 





i 3 

| 

JiS j? 

@ - . 

fp 

p P Fv p 

p 

© 3 ■ 

F F 

, 





■f A 

<! w yit 
jj -JSc. 3ft. KU‘ 

P 

p 

i® p 
' J eJ i*r> p 

pi 

P; , p p 

p 

0 3.- 

7% p’ 

j? 





1 3 

1 KM® 

ad* p 

0 |5 P . 

!p 

P; p' P 

p 

© P ? 


» DEC I 

yijjftj 

L 

-> 



j> @ B / 


— > 
/ $>000 B f 


— > 

, 0 E, 











0 

1 

2 

3 

4 

5 

6 
7 
S 
3 

10 
11 
12 

13 

14 

15 

0 


H-B 1 ock 

C PHASOR BURST 
DATA PBUREXP 2 
~ 3030 0000 A 


10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 
7 

a 

3 

10 
11 
12 

13 

14 

15 


136 
HIT F 
B , 5 


AT' 
B , 


'ERN ) 
QUAD 


0003 

1113 

0033 

0300 


0000 

3000 

0000 

0000 


DECIMAL —> 


-Block 197- 

FIREBALL PATTERN 3 


1 

DECIMAL 

DATA 

FBL3 4 

B, 

7 B j 

QUAD 

2 

0003 

B, 

3100 

B, 

0000 

B, 

0000 

B , 

3 

0033 

B, 

1 130 

B / 

0000 

B, 

0000 

B i 

4 

@331 

B, 

1311 

E i 

000© 

B } 

000© 

E j 

5 

3333 

B f 

1111 

B / 

1111 

B, 

000® 

B t 

6 

0113 

B, 

3113 

E , 

0000 

3 r 

000© 

E, 

7 

0031 

B , 

1130 

E i 

000® 

is 

—• f 

0000 

E, 

a 

9 

0001 B) 
DECIMAL 

•s 

© ^ 
■Ss**l } 

XT* | 

B, 

©000 

JD> r 

0000 

B, 


-Block 138- 

< FIREBALL PATTERN 4 
DECIMAL DATA FEL4 4 
1300 
3330 
131 1 
1111 
1131 

.-a i\ ■'“* o 

I Jt O O 

1 33 i 


B, 


B, 
B, 
B, 
B / 

B jr 


0001 
001 1 
031 1 
1331 
3133 
311 1 
031 1 
0013 B, 
©003 E , 
DECIMAL 


i 

2 , 

E, 

B , 


0000 

©00® 

1 0®@ 
■1 4: 4 * 


3 


B , 


9 B , QUAD 

@000 B, 
©0©@ B, 
0000 B , 
@00® B, 
00-02 3t 
C; © © © g 

2222 Bs 

B, 

B« 










+-Block 139 


0 

i< FIREBALL PATTERN 5 

) 


1 

! DECIMAL 

DATA 

FBL5 4 B 


11 B, 

2 

J 0000 

B, 

3110 

E, 

0000 

B, 

0000 

3 

10033 

B, 

1113 

B t 

3000 

B, 

0000 

4 

! @333 

B, 

331 1 

B, 

3100 

B , 

0000 

5 

! 0331 

B, 

3331 

B, 

1 10@ 

B, 

0000 

6 

i 3311 

B j 

1311 

B ! 

1. 330 

B ^ 

0 0 0 

7 

11113 

B t 

1111 

Ei 

Ti -'T: "D. f 

£:■ j? 

0000 

S 

! 11 11 

B, 

/ Jf. A 

l lul 

B, 

,C : - 



S 

i 0131 

B, 

•-J 1 1— P vZ? 

3 - 

“T"' ; 

j? 

0 0 0 0 

10 

i 0333 

B j? 

1 i 13 

B, 

F * 7 .- fjh it","': 

3 j? 

0 0 f7) 0 

1 1 

10011 

B, 

1 'i 33 

■v' T 


J? 

0000 

12 

1 0000 

B, 

ii fy 

Ji- p 

3 

■ / 

f>, rS 

13 

1 DECIMAL 

-- > 





14 

1 







15 

| 








QUAD 



t 


} m M W Ed 03 W ft) CO ffl 






*1 00 1 ( 
101 ! C 
*102 1 ( 

103 i C 

104 !( 

105 i C 
1 06 i f 
107 it 
*121 !( 

122 ! C 

123 | C 

124 ! ( 

125 ! ( 

150 I < 

151 i C 

160 ! C 

161 K 

162 it 

163 i ( 
1 70 i < 
171 it 


CROSS COMPILE TACK GAME ON SYSTEM END ) DECIMAL 
MASTER CONTROL PROGRAM > 

DISPLAY PLAYER UP > 

OTHER NEAT SUBROUTINES ) 

OTHER NEAT SUBROUTINES ) 

DO A ONE PLAYER GAME ) 

TWO PLAYER GAME > 

GAME START UP AND HAVE SOME FUN > 

MASTER CONTROL PROGRAM ) 

DISPLAY PLAYER UP ) 

OTHER NEAT SUBROUTINES > 

TWO PLAYER GAME > 

GAME START UP AND HAVE SOME FUN ) 

CHARACTER VECTORING ROUTINE ) 

'WONDERFELL TEST CHARACTER INSANITY ROUTINE ) 

FIREBASE EXPLOSION 51 
FBEXP5 CONTINUED ) 

FIRE BASE EXPLOSION 6 ) 

FIRE BASE EXPLOSION S CONTINUED ) 

NORMAL BCD ADD I T I ON ) 

DISPLAY 6 DIG I" BCD NUMBER — X Y OPT NUMADDR DISPBCD6 ) 




1 

2 

3 

4 

5 
S 
7 
3 
9 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 
7 
3 
9 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 
7 
3 
9 

1 0 
1 1 
12 

13 

14 


+-Block 100- 

( CROSS COMPILE TACK GAME 
HEX 3900 DP ! DECIMAL 
101 B: LOAD 
XCEND XCSTAT 
xcsnjs xc DECIMAL jS 
DECIMAL 305 300 << 

HEX 300 200 100 0 4 0 
CR PAGE CR PAGE CR jS 


ON SYSTEM END ) DECIMAL 


<< DECIMAL J HEXLIST >> >> 


————-Block 101- 

( MASTER CONTROL PROGRAM ) 

HEX ( MISSION START ADDRESSES TABLE ) 

TABLE MSATEL 3000 , 9000 , OA000 , 0AS00 , 0B000 , 

( CRUDE GAME OVER COLORS ) 

DATA MCCOLORS 0 B } 7D B , 0E B, 5A B , 0 B , 7D E, 0B B, 5A B , 

: GOFRAME DI © FLOOD INITMISSIONRAM DRANMISSI ONSCREEN 
0 STARZ OUTP DI ; 

: GOC MCCOLORS COLOR } 

: CLRLITES 27 20 DO @ I OUTP LOOP ; 

: LITEMISSION CLRLITES 1 MISSION @11- OUTP SKILLFACTOR @ 

IF 1 25 OUTP THEN i 

: DOFRAME © FLOOD LITEMISSION MISSION # 31 - MSATBL @ DUP E@ 
A5 = IF 1+ @ DOIT ELSE DROP THEN 0 26 OUTP j 
DECIMAL —> 


-Block 1 32-- 

( DISPLAY PLAYER UP > 

HEX 423 C— DIPS DECIMAL 
: DISPU GOFRAME DI 

240 76 XY DIPS A“ PLAYER" COUNT SPOST 

PLAYERUP €■ IF 20© 36 XY DIPS A" TWO" COUNT SPOST ELSE 
200 36 XY DIPS A" ONE” COUNT SPOST THEN s 
DECIMAL —> 










+-Block 103- 

i< OTHER NEAT SUBROUTINES ) 

! HEX 

!: BUMPMISS MISSIONCTR BCDBUMP MISSION 1+! MISSION 0 36 = IF 
iSKILLFACTOR @ 0= IF FBCOUNTER 1+! OTHERFBCTR 1+! THEN 
! SKILLFACTOR 1 + ! 

J OTHERSKILLF 1-H 31 MISSION ! THEN J 

i : BUMPCHECK PLAYERUP @ 0= IF BUMPMISS ELSE PI ACT @ GAMEOVER 
iOR 0= IF BUMPM 1 3S THEM THEN ; 

i: MYSTATE PLAYERUP @ IF F2ACT ELSE P1ACT THEN j 
!: OTHERSTATE PLAYERUP @ IF PI ACT ELSE P2ACT THEN ; 
i: 5WAFPLAYER OTHERSTATE @ IF 

!PLAYERUP @ 1+ 1 AND PLAYERUP ! OTHERFBCTR ® 

!FBCOUNTER 0 OTHERFBCTR ! FBCOUNTER ! THEN j 
!DEC IMAL —> 


-Block 104- 

( OTHER NEAT SUBROUTINES ) 

: GAMEO GAMEOVER @ EMUS IC E2MUSIC 
GOFRAME DISPU GOC 5 0 DO 160 82 XY DIPS 


OVER" COUNT SPOST El 30 


A" GAME" COUNT SPOST 120 82 XY DIPS A" OVER" COUNT 
WAIT DI LOOP GAMEOVER ! ; 

: YOURUP EMUS IC E2MUSIC GOFRAME DISPU 
GOC 5 0 DO ISO 86 XY DIPS A" GET" 

COUNT SPOST 12© 78 XY DIPS A s READY" COUNT SPOST El 
DI LOOP J DECIMAL --> 


3© WAI T 


-Block 105- 

( DO A ONE PLAYER GAME ) 

HEX 

; PLAY1 STARTGAME P2ACT ZERO NPLAYERS 
GAMEOVER ZERO 3 FBCOUNTER'! 

31 MISSION ! 

BEGIN DOFRAME BUMPMISS GAMEOVER © END 
DECIMAL —> 


PLAYERUP ZERO 


a 1 a 

12 s 

13 \ 

14 S 

15 ! 










-Block 1@6- 

( TWO PLAYER GAME ) 

HEX 

; PLAY2 STARTGAME 1 NFLAYERS \ FLAYERUP ZERO 
1 FECOUNTER ! 1 OTHERFBCTR I 

1 PI ACT ! 1 P2ACT ! GAMEOVER ZERO 31 MISSION ! 
BEGIN 

OTHERSTATE @ GAMEOVER @ OR IF YOURUP THEN 
GAMEOVER ZERO BOFRAME 0 FLOOD 


GAMEOVER @ IF 


ZERO OTHERSTATE 


GAMEO 0 ELSE 1 THEN ELSE 0 
SWAPPLAYER BUMPCHECK 
END J 

DECIMAL —> 


-Block 107- 

£ GAME START UP AND HAVE SOME FUN ) 

HEX 

: GSU STARTGAME 3141 0 RND# ! 5326 1 RND# ! 

30 MISSION ! 

BEGIN CLRLITES 2 20 OUTP 2 21 OUTP 

GOFRAME 2800 1000 428 A" PUSH 1 OR 2 PLAYER BUTTON" 
COUNT SPOST 

4600 4200 428 A” GAME OVER" COUNT SPOST GOC 
BEGIN RANDOM DROP 10 INP 30 AND 30 <> END 
10 INP 20 AND 0= IF PLAY2 ELSE PLAY1 THEN 
EMUS IC E2MUSIC 
0 END } 

DECIMAL ;S 


- —Block 121- 

£ MASTER CONTROL PROGRAM ) 

HEX £ MISSION START ADDRESSES TABLE > 

TABLE MSATBL 3300 , 8000 , 9000 , A000 , BOO© , 

£ CRUDE GAME OVER COLORS ) 

DATA MCCOLORS O E, 7D B, 0B B, 5A B, 0 B , 7D B, OB B t 5A B, 
: GOFRAME 0 FLOOD INITMISSIONRAM DRAWMISSI ONSCREEN 
MCCOLORS COLOR DI ; 


( : DOFRAME INI' 

POLLC IF 1 GJhME£ 
DECIMAL —> ) 

; DOFRAME MISS 1.1 

as = if i-f t so: 

DECIMAL — > 


MI SSIONRAM BRAWMI SSI ONSCREEN BEGIN 

VEE ' THEN JOYSTICK INP SWF I RE AMD 0= END DI 


0 31 — MSATB 
ELSE DROP TH 


^ 73 y p a 











0 

1 

2 

3 

4 

5 

6 
7 
3 
3 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 
7 
S 
3 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

e 

~y 

t 

a 

3 

1 0 
11 


+-Block 122- 

C DISPLAY PLAYER UP ) 

HEX 423 C= DIPS DECIMAL 
: DISPU GOFRAME DI 

240 76 XY DIPS A" PLAYER" COUNT SPOST 
PLAYERUP 0 IF 200 36 XY DIPS A" TWO" COUNT 
200 86 XY DIPS A” ONE" COUNT SPOST THEN ; 
DECIMAL —> 


SPOST ELSE 


+-Block 123- 

( OTHER NEAT SUBROUTINES ) 

HEX : BUMPMISS MISSION 1+i MISSION 0 36 = IF SKILLFACTOR 1+! 
OTHERSKILLF 1+! 31 MISSION ! THEN ; 

: BUMFCHECK PLAYERUP © ©= P1ACT © 0= OR IF BUMPMISS THEN i 
: MYSTATE PLAYERUP 0 IF P2ACT ELSE PI ACT THEN ; 

: OTHERSTATE PLAYERUP 0 IF PIACT ELSE P2ACT THEN j 
: SWAPPLAYER OTHERSTATE t IF 

PLAYERUP 0 1+ 1 AND PLAYERUP ! OTHERFBCTR 0 
FBCOUNTER 0 OTHERFBCTR ! FBCOUNTER ! THEN f DECIMAL 
: GAMEO GAMEOVER 0 GOFRAME DISPU 5 0 DO 160 82 XY DIPS A" GAME' 
COUNT SPOST 120 32 XY DIPS A" OVER" COUNT SPOST El 3® WAIT 
DI LOOP GAMEOVER ! i 

: YOURUP GOFRAME DISPU 5 0 DO 160 36 XY DIPS A” GET” 

COUNT SPOST 120 73 XY DIPS A" READY" COUNT SPOST El 30 WAIT 
DI LOOP j DECIMAL —> 


-Block 124- 

( TWO PLAYER GAME ) 

HEX 

: PLAY2 STARTGAME 3 OTHERFBCTR ! 1 NPLAYERS ! PLAYERUP ZERO 
1 PIACT ! 1 P2ACT ! GAMEOVER ZERO 31 MISSION ! 

BEGIN 

OTHERSTATE 0 GAMEOVER © OR IF YOURUP THEM 
GAMEOVER ZERO DOFRAME 

I GAMEOVER A IF MYSTATE ZERO OTHERSTATE A IF 
‘ GAMEO 0 ELSE 1 THEY ELSE 2 "FEE 
i SWAPPLAYEE BUM®C-ECE 

I END ; 

! DECIMAL —> 


1Z] 

13 1 

14 ] 

15 \ 










w to in 


0 

1 

' 2 
3 

, 4 
5 

e 

7 

a 

9 

10 
i i 
1 2 

13 

14 

15 

0 

1 

2 

3 

4 

5 
G 

7 

8 
9 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 
7 

a 

9 

1 0 


+ -Block 125- 

C GAME START UP AND HAVE SOME FUN ) 

HEX 

: GSU STARTGAME 3141 0 RND# ! 592G 1 RND# ! 

30 MISSION ! 

BEGIN 

GOFRAME 2800 1000 428 A“ PUSH 1 OR 2 PLAYER BUTTON" 
COUNT SPOST 

BEGIN 10 INP 30 AND 30 < > END 

10 INP 20 AND 0= IF PLAY2 ELSE PLAY! THEN 

0 END ; 

DECIMAL }S 


-Block 150- 

< CHARACTER VECTORING ROUTINE > 

SUER VWRITEC VXL X E LDX, VXH X D LDX, 

VYL X L LDX, VYH X H LDX, 

VMAGIC X C LDX, VXPAND X B LDX, 

VTLL X A LDX, drauchar CALL, RET, 

SUER CHARI TBCALC CALL, B PUSH, 

FQSDE PQS X EITX, 0=, IF, VWRITEC CALL, ELSE, 
PQSDE PQS X RESX, THEN, 

B POP, VECTDD CALL, aup CALL, 

PQSDW PQS X BITX, 0=, IF, VWRITEC CALL, ELSE, 
FQSDE PQS X SETX, PQSDW PQS X RESX, THEN, KILLOFF 
— > 


-g1ock 151- 

( WONDERFULL TEST CHARACTER INSANITY ROUTINE > 
HEX 

DATA BCR 0 80 SETDC -10 © SETDDC 11 SWAIT 
12© 80 SETDC 11 SWAIT ARET 
DATA BCR3 3 AREPEAT BCR ACALL ALOOP ARET 
DATA ACHAR CHARI SE7R NULPAT SETP 04 SETXP 
| BF 40 SETS 28 SETM 
IBCR3 ACALL AHALT 

S: TEST STAR7GAXE GOFRAME MCGOLORS COLOR * 

\ % ZAP TEST 


JMF, 


3 0 00 

1 P-, tSi?l ^ 

&T. XYVECTOR BUP WAIT 

3000 

100® AC-'AT: L3 

ML XYVECTOR DUP 1*3 AT 7 

3000 

80 .® ACHAT 4E i 

\Z XYVECTOE BUP, ^AlT 

J, 3 ;0 10 

e> C-TOTO 'TO TO p TO. 

^ V y Er f‘ T* f *! ip o 

DEC If 

1A L ; 3 











+-Block IS @ 


@i( FIREBASE EXPLOSION 

1 iDAT A FBEXP5 6 B, 23 B 

5 ) 

, QUAD 


2 ! - 

0000 

0000 

0010 

0003 

0000 

@000 

A 

3 ! - 

3001 

3000 

1 001 

i 000 

0302 

©00© 

A 

4 ! - 

0020 

003© 

0200 

002© 

@©@@ 

1 000 

A 

5 ! - 

@000 

0000 

0001 

0000 

0000 

@000 

A 

S 1 - 

3300 

2100 

200© 

3@@@ 

0200 

0000 

A 

7|- 

0030 

0200 

@©02 

0000 

@033 

300© 

A 

SI- 

0300 

©020 

©22© 

©030 

@30© 

0000 

A 

9 1- 

© 0©@ 

0000 

©300 

@000 

0003 

000© 

A 

10|- 

0033 

3002 

2200 

0110 

001 1 

1 000 

A 

111- 

0003 

3001 

2000 

1 100 

@122 

@@00 

A 

12 ! - 

0033 

2201 

2201 

1010 

1022 

1 @00 

A 

13 1- 

3300 

0221 

201 1 

1 1 00 

1110 

©@@0 

A 

14|- 

3330 

0022 

2@@1 

1110 

1100 

@000 

A 

15 1- 

0030 

2000 

©222 

21 ©@ 

0000 

i ©0© 

A 

+ — 


— B I ock 

161- 


- 


©K 

1 ! - 

FBEXP5 CONTINUED 3 
0033 1110 0020 102@ 

110© 

©00© 

A 

2 ! - 

0300 

01 10 

0200 

1 @00 

0100 

0000 

A 

3 I - 

0001 

0003 

003© 

@0 1 @ 

@03© 

©000 

A 

4 j — 

0000 

0100 

@000 

©000 

1 @00 

0000 

A 

5 ! - 

0200 

0000 

001 @ 

0000 

@000 

@@@@ 

A 

Si- 

0001 

0030 

0000 

0@3@ 

©010 

1 000 

A 

7 i - 

1000 

0000 

0020 

@@@@ 

0000 

@00© 

A 

Si- 

003© 

0010 

0000 

@1 @0 

0003 

0 0 0 0 

A 

9 ! - 

030© 

001 0 

@000 

Of O 

. *£t -•£? '■& 

@@0@ 

3000 

A 

10 ! DEC I HAL —> 

11 i 

12 ! 

13 1 

14 i 

15| 

1 - B1 ock 

162- 




0|< FIRE BASE 
1!DATA FBEXP6 

2!~ 0001 0000 

EXPLOSION 
SB, 23 B 

0000 @000 

S ) 

, QUAD 
0000 

@@@0 

A 

3 i - 

0000 

0020 

@000 

@ 3 © @ 

@@@@ 

2000 

A 

4 ! - 

0000 

0000 

0300 

0 0 @ @ 

@010 

0@0@ 

A 

5 i 

0100 

©000 

©00© 

0200 

000© 

@000 

A 

S i - 

0000 

@000 

0000 

@@@@ 

@000 

0 @ 0 @ 

A 

7 | - 

0200 

00 f. 0 

©• © 31 

O' fh O' •’ 

©@2@ 

@@@@ 

A 

8 | ^ 

0002 

@®@0 

1 @0^ 

oooo. 

ijj o. O. 9 

000® 

'** 

9 ' — 

© @ @ @ 

0 3 0 @ 

@@@ 


0 0 0 @ 

3 % ® 0 


10!- 

01 @0 

Qi 0 0 (53 


p ,-T-i Q, Q, 

@@@@ 

0 0 0! 0 

A 

11 ! - 

0@@ 1 

^ $$ 0 r?d 

jOj rp A p. 

©@@! ' 


0V00 

A 

12 1- 

3 © @ © 

0>. (pi; 


i0i @ f> O 




1- 3 i - 


{/y ■p- -0 

S'?! r‘"i '?• O' 

@p-:' 

© ® 1 © 

£S £S (SJi il^s 

-- 

14' — 

0000 

0 © 0 1 

© 2 #5 2 

@t?i O: O 

2 0 @ @ 

9 9 @ ® - 

A 

15!- 

2030 

1 0©0 

© @ © © 

ir”;i -T; a -p 

@ 0 0 0 

£?i 9 9 0 

A 


— > 









+ *?" 
0! ( 

FIRE 

~E I oc 
BASE 

zk 183—- 

EXPLOSION 

S CONTINUED 

1 ! 

0001 

000© 

0200 

@003 

0000 

1000 

S\ 

2 ! 

1 000 

0010 

0003 

01 00 

0020 

0000 

J\ 

3 ! - 

0000 

0000 

1 000 

0000 

©00© 

000© 

j\ 

4 j 

3000 

03©0 

@00© 

@@00 

0200 

@000 


5 j ^ 

0000 

0000 

0000 

@000 

0000 

© ©0 0 

A 

Si- 

0200 

0010 

0000 

1 @00 

0300 

0000 

XN. 

7 i ~ 

0@©0 

0 1 ©@ 

©A©© 

@@®3 

©00© 

©000 

A 

8 ! " 

0003 

0003 

00 1 0 

@©0@ 

002@ 

0000 

A 

9 i " 

3000 

1 00© 

©000 

@201 

0@@ © 

2 000 

A 


10 ! DEC 1MAL —> 

11! 

12 ! 

13 ! 

14 | 

15 ! 

+- 1 -Block 17©- 

©!( NORMAL BCD ADDITION ) 

1|CODE BCD+! EXX, H POP, D POP, 

2 i M A MOV, E ADD, DAA, A M MOV, 

3 ! H I NX, M A MOV, D ADC, DAA, A M MOV, 

4 ! N INX, . M A MOV, © AC I, DAA, A X MOV, 

5 ! EXX, NEXT 
6! DEC IMAL —> 

7 ! 


8 ! 

9 ! 

10 1 
1 1 ! 

12! 

13! 

14! 

15! 

+—-Block 171- 

0! ( DISPLAY 6 DIGIT BCD NUMBER — X Y OPT NUMADBR BISPECDS ) 

1 |HEX SUBR digit 0F ANi, ©=, IF, D ORA, ©<>, IF, 0F0 A MV I, THEN, 
2!ELSE, © D MV I, THEN, 3© ADI, EXX, drawchar CALL, EXX, RET, 

3 i HEX 

4f • 

5 i F= DGTL 

6!CODE DISPBCDS <ASSEMBLE H POP, M A MOV, H INX, M ORA, 

7!H INX, M OR*, A D MOV, 3 E MV I, 

S' I EXX, B F'OP> V ^07, S POP, X PUSHX, Y PU3VX, EXX, 

S;LABEL DGTL Y A v 0V, 77C, 77C, RR C, ”RC, a i gi7 CALL, 

10 J 'M A MOV, c: ;■.>?.* CALL, V OCX-?. 7 PCS, SC 'L P" V Z, 

u I y po?x .1 x "op x, :'-:px" scsl'clo >' ’ 

12!DECIMAL ,7 
13! 

1 4 ! 








